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The Joint Army/Navy Rotorcraft Analysis and Design (JANRAD) computer 
program has been developed at the Naval Postgraduate School to aid in the preliminary 
design of rotorcraft and has been updated to include a Graphical User Interface (GUI). 
This thesis is a continuation of the program, focusing on stability and control analysis. 
The trim solution for a specified flight condition is computed from the Performance 
module of the program. This trim solution is then used to compute stability derivatives 
for the specified flight condition and a linear state space model is created. This solution 
can then be used to perform various time and frequency domain analyses or can be saved 
to a file for future use. 



•hOw. 



V 




VI 



DISCLAIMER 



Readers are cautioned that the computer code in this thesis may not have been 
exercised for all cases of interest. While effort has been made, within the time available, 
to ensure that the program is free of computational and logical error, additional 
verification should be applied. This version of JANRAD was written and tested in 
MATLAB® version 5.0 Student Edition. The use of this application is at the risk of the 
user. 
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I. INTRODUCTION 



A. BACKGROUND 

The Joint Army/Navy Rotorcraft Analysis and Design (JANRAD) computer 
program was originally developed by students at the Naval Postgraduate School (NPS) as 
an aid to design for the 1993 American Helicopter Association (AHS) Design 
Competition. It has since undergone six upgrades. 

The original JANRAD developed by Robert Kirk Nicholson, Jr. [Ref. 1] was a 
command line type program written in MATLAB®, that was used for performance 
analysis. Inputs for the configuration of the proposed helicopter were entered via the 
command line and a trim solution for a specified flight condition was obtained. Central to 
the performance analysis is the harmonic balance method of Gerstenberger and Wood 
[Ref. 2]. Immediately following Nicholson’s work was the update created by Walter M. 
Wirth [Ref. 3], which provided a linear state space representation for the helicopter that 
could be used for stability and control analysis. The third version by Juan D. Cuesta [Ref. 
4] and revised by Daniel S. Hiatt [Ref. 5] added a Blade Dynamics module to JANRAD 
utilizing a modified Myklestad Prohl Transfer Matrix Method. These four versions of 
JANRAD were validated by David M. Eccles [Ref. 6] through comparison with NASA- 
Army H-34 flight test data (1964) and more recent NAS A- Army UH-60A flight tests at 
NASA Ames (1992). 

The next generation JANRAD Version 5.0 was introduced by Chris F. Lapacik 
[Ref. 7] and revised by William L. Hucke [Ref. 8]. This version brought the JANRAD 
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program up to date with the Microsoft® Windows® operating environment through the 
use of MATLAB® version 5.0 Student Edition. The Performance Module of JANRAD 
was updated with a Graphical User Interface (GUI) and several output plots were 
generated and verified. 

The focus of this thesis was intended to be to add the GUI to the Stability and 
Control and Rotor Dynamics modules of JANRAD. The input screens for the Stability 
and Control Module were developed with the help of William L. Hucke. The intention 
was simply to attach this as the “front end” to the Stability and Control code written by 
Walter M. Wirth, Jr. [Ref. 3], and then do the same for the Rotor Dynamics Module. Due 
to various problems encountered with the existing Stability and Control code, the Rotor 
Dynamics Module did not get updated to the GUI. Instead, several output screens were 
developed for the Stability and Control Module. The aim was to create output that could 
be easily applied to the Aeronautical Design Standard Handling Qualities Requirements 
for Military Rotorcraft (ADS -33), the military’s accepted standard for helicopter design. 
The intent of the release of ADS-33 was to replace MIL-H-8501, which had been the 
standard since the late 1950’s. 

B. ORIGINAL STABILITY AND CONTROL CODE 

The original code for the Stability and Control module written by Walter M. 
Wirth, Jr. [Ref. 3] could only be verified for the hover flight regime (0 - 40 knots). The 
output matrices for the forward flight case were inconsistent with the known values given 
for Prouty’s example helicopter [Ref 9]. 
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Wirth’s code [Ref. 3] utilized the hover trim condition generated by the 
Performance Module as the starting point for his computations. This process will briefly 
be discussed in a later section. Stability derivatives were determined by using closed form 
solutions when possible and by solving multiple trim solutions about a nominal point to 
solve for unknowns. This method proved effective for the case of the hovering aircraft, 
where perturbations were performed by varying gross weight. However, when the forward 
flight condition was evaluated, new stability derivatives were needed that could not be 
correctly evaluated by simply solving multiple trim solutions about a nominal point. 
These particular derivatives where not used in the hover case and therefore did not effect 
the solution for this regime. The bulk of this thesis was spent determining an acceptable 
method to determine these stability derivatives. 

C. USER’S GUIDE 

A User’s Guide is attached as Appendix A and gives an overview of the major 
features and procedures for using JANRAD version 6.0. It is a compilation of several 
thesis students work and therefore is presented in its entirety. It has been updated to 
reflect the changes and improvements to the Stability and Control Module. 

D. JANRAD VERSION 6.0 FILE STRUCTURE AND FLOW CHART 

An updated flow chart which tracks files and Callback operation of JANRAD 
version 6.0 Stability and Control Module is included as Figure 1. The files referenced in 
the flow chart are included as appendices. Asterisked files are files that were written 
during prior versions and were not updated by the author. 
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Figure 1. JANRAD Stability and Control Program Architecture 
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II. INPUT SCREENS 



A. GRAPHICAL USER INTERFACE 

The original versions of JANRAD where written in MATLAB® PC version 3.5. 
Entries were made to the program on the command line in the workspace. The process 
was slow and cumbersome, and did not allow the user to easily change parameters or 
view entries and outputs. With the development of the GUI, data entry has become easy 
and intuitive. Input parameters can be entered, changed, and saved with the touch of a 
button. 

The Performance module was updated with the GUI by Chris F. Lapacik [Ref. 7] 
and modified by William H. Hucke [Ref. 8]. A detailed explanation of the Guide® 
function in MATLAB® can be found in Lapacik’ s thesis [Ref. 7]. This function allows 
for GUI screen to be created using a drag and drop technique. The function writes all of 
the computer code necessary to create the desired screen. The developer needs only to 
attach the necessary functions to the screen code. Also in Lapacik’ s thesis [Ref. 7] is a 
detailed discussion of the variable and file naming structures. Every attempt has been 
made to maintain these conventions. 

B. STABILITY AND CONTROL INPUT SCREENS 

The Stability and Control input screens were developed in conjunction with 
William L. Hucke, and served as an invaluable learning tool and “pass down”. During 
this process, the general structure of the JANRAD program was learned and instruction 
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was given as to the use of the GUIDE® function in MATLAB®. An explanation of the 
development of these screens can be found in Hucke’s thesis [Ref. 8]. 

Once the input screens were created, the variables entered were structured so they 
could be passed to the appropriate M-files for computation. The program was then tied to 
the portion of JANRAD written by Walter M. Wirth [Ref. 3] for the stability derivative 
computation. 

Output screens were created to display the linear matrix state equation A and B 
matrices and a time - frequency analysis screen was created. 
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III. HOVER FLIGHT CONDITION 



A. THE EXISTING CODE 

The existing JANRAD Stability and Control Module produced a linear state 
space model of the helicopter. It utilized the trim solution from the Performance module 
as the starting point for its calculations and then varied gross weight to obtain the 
necessary stability derivatives. A detailed explanation of the method used can be found 
in Wirth’s thesis [Ref. 3]. 

B. MODIFICATIONS 

The only modifications to this portion of the program were to add the graphical 
user interface to the input screens and create a screen to monitor the progress of the 
program. The input screens were created in conjunction with William Hucke and served 
as an effective means of learning the intricacies of the MATLAB program. Once the 
screens were created the variables were structured and passed to the subroutines created 
by Walter M. Wirth [Ref. 2]. 

A progress screen was created to aid the user in determining what the program 
was doing and also serves to ensure that the program has not “locked up” on a particular 
calculation. This screen is similar to the screen created in the Performance Module. 

Once the stability derivatives have been obtained, the A and B matrices are 
constructed. The matrices obtained in this manner seemed to agree well with that of the 
example helicopter given in Prouty’s book. A detailed comparison of the output 
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generated by JANRAD and that given by Prouty for his example helicopter is given in a 
later section. Because the output agreed well with known quantities, this method was 
applied to the forward flight regime. [Ref. 9] 
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IV. FORWARD FLIGHT CONDITION 



A. EXISTING CODE 

The forward flight regime was initially modified in exactly the same manner as 
the hover regime. The same input screens were used, but a logical branch was set in the 
program to access the forward flight subroutines if the airspeed entered was above 40 
knots. The stability derivatives were evaluated in the same manner by varying about the 
nominal trim condition. However, the trim condition was perturbed by making small 
variations to the airspeed as opposed to the gross weight, as in the hover case. The A and 
B matrices were again constructed. 

B. PROBLEMS ENCOUNTERED 

When the A and B matrices were compared to known values of the example 
helicopter given by Prouty [Ref. 9], it was determined that the two were inconsistent. 
Therefore an extensive troubleshooting effort was launched. The code was run repeatedly 
to determine if some programming error had been made with the addition of the GUI 
screens. Wirth’s thesis [Ref. 3] was used to verify the values obtained in the new hover 
regime, but an example for the forward flight case was not given. 

C. IDENTIFING THE SOURCE OF THE ERROR 

The main rotor derivatives and tail rotor derivatives are calculated using the 
formulas provided by Prouty. All of these formulas are functions of the rotor derivatives 
in forward flight obtained by Prouty through charts given in his book. These terms 
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involve the partial derivatives of Cj/g, Ch/(J, Cq/g,2lis, bis with respect to |i ,0o, and X\ 
[Ref. 9] 

These charts are not available to JANRAD and the correct values for these partial 
derivatives can not be obtained simply by varying the airspeed about the trim condition. 
Each time the aircraft is perturbed by varying the airspeed, ji is directly effected as an 
input to the program. However, the new trim solution produces new values for 0o and X\ 
thereby producing some kind of convoluted values for the derivatives of Cj/g, Cu/g, 
Cq/g, ais, bis. 

A method was devised to vary each of the three parameters (p. ,0o, and X') 
separately while holding the other two constant. In this way, the fifteen specific partial 
derivatives could be obtained. 

D. IN SEARCH OF THE SOLUTION 

The first attempt was to find a closed form solution for each of these derivatives. 
A NACA Technical Note written by Kenneth B. Amer and F. B. Gustafson entitled 
“Charts for Estimation of Longitudinal Stability Derivatives for a Helicopter Rotor in 
Forward Flight” [Ref. 10] was found. While some equations were given for the necessary 
stability derivatives, a chart was still needed to determine specific values for several of 
the variables. This was determined to be no better than Prouty’s [Ref. 9] method of using 
the charts in his book directly to obtain the necessary values. Thought was given to 
converting these charts to tables and then having the program do a table look up to 
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determine the values, but it was determined that this would be far too time consuming 
and too specified to be of any real value. 

E. THE SOLUTION 

Finally it was determined that the appropriate method for obtaining these stability 
derivatives was to vary each parameter independently. While this may seem like an 
obvious choice, it proved to be a complicated one, because the many assumptions that 
had to be made. Many of the values used by the program are not explicit functions of 
each parameter, and therefore a determination had to be made for each variable in the 
program on the effect of changing these parameters independently. 



11 



V. PROUTY’S CHART METHOD FOR DETERMINING FORWARD FLIGHT 
STABILITY DERIVATIVES [REF. 9] 



A. THE THEORY 

The following rotor derivatives are needed to compute the stability derivatives 
that define the linear state space model of the helicopter (see Prouty’s book [Ref. 9] for 
and explanation of each variable): 
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To determine the values for these derivatives, Prouty uses what is known as the 
graphical method, utilizing the Rotor Performance charts given in Chapter HI of his book. 
These charts where originally developed by M.C. Cheney at Lockheed. The charts were 
generated using a computer program that used the equations described in Chapter BI of 
Prouty’s book. The charts, while based on a series of arbitrarily selected rotor 
parameters, are reported to be flexible enough to be used for rotors of various parameters. 
[Ref. 9] 

By entering the charts at the trim values and varying each parameter 
independently, the rotor derivatives can be obtained. The following is a detailed 
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description of the process. Figure 2 is a graphical representation of the chart method for 
determining the stability derivatives as given in Prouty’s book. [Ref. 9] 



Partiats vuith Respect to A'; Paihais with Respect to 

Constant % Constant A ' 





Figure 2. Illustration of Rotor Derivative Extraction from Performance Charts [Ref. 9] 
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B. STEP BY STEP DETERMINATION OF ROTOR DERIVATIVES 

The values of the parameters at the trim condition must first be determined. 
Prouty [Ref. 9] gives the following values: 

|i=.30 00 = 13.5° 0.23 

p is defined as the tip speed ratio, 0o is the trim collective pitch angle and X' is 
the inflow parameter with respect to the tip path plane. To determine the value for the 
partial derivatives with respect to p use the charts for p=0.25 and p=0.35. These values 
correspond to small perturbations around the trim value of p. The charts are plotted 
against Cj/g , so this is used as the intermediate variable. 

Step one is to enter the chart of X' vs. Cj/g for p=0.25. Find and record the value 
of Cj/g for the trim values of X' and 0q. Step two is to enter the chart of Cq/g vs. Cj/g. 
Find and record the value for Cq/g for the just determined value of Cj/g and the trim 
value 00. Do the same for Ch/cj, ais and bis, always using the trim value for 0 q and the 
determined value for Ct/cj. Repeat this procedure using the p=.35 charts. 

To determine the values for the partial derivatives, simply take the difference 
between the determined values for the variables and divide by the difference of the 
parameters. For example: 

^(M = 0.35)-^(m = 025) 
d^i 0.35-0.25 

The partial derivatives with respect to 0 q and X' can be determined in the same 
manner. Using this method all fifteen of the rotor derivatives can be determined 
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C. PUTTING IT ALL TOGETHER 

Once all of the non-dimensional rotor derivatives have been obtained, the 
formulas given in Prouty’s book [Ref. 9] are used to determine the Main Rotor 
Derivatives. These are then combined with the tail rotor, horizontal stabilizer, vertical 
stabilizer, and fuselage derivatives to obtain the Total Forward Flight Derivatives. These 
are then used in the helicopter equations of motion to construct the linear model. 



16 



VI. JANRAD’S METHOD FOR DETERMINING FORWARD FLIGHT MAIN 
ROTOR DERIVATIVES 



A. THE THEORY 

JANRAD’s approach is to perturb each of the parameters, )i, 0o, independently 
and compute the values for the variables Ct, Ch, Cq, ais, and bis. This is exactly the same 
method that Prouty [Ref. 9] uses, however, instead of using charts, JANRAD computes 
the values for each variable specifically. A separate subroutine for varying each 
parameter was written due to the differing assumptions that had to be made for each case. 
Each subroutine both increases and decreases its parameter from the trim value and 
computes a value for each variable. A vector for the values of the parameters and a 
vector for each of the variables is created. 

These vectors are passed to a subroutine that creates a first order curve and then 
computes the derivative of the curve. The slope of the curve at the trim value is then 
computed and this is used as the rotor derivative. 

The procedure is simplistic, however many assumptions had to be made as to 
which variables in the trim routine had to be held constant and which had to be allowed to 
vary. The following section discusses the assumptions made and the criteria for various 
variables in the trim routine. 

B. THE COMPUTATION 

The general structure of each subroutine is the same and is modeled after the 
Trim.m subroutines written for the Performance Module. The entire subroutine is 
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written as a loop that is run three times, once for a value for the parameter below the trim 
value, once for the trim value of the parameter and once for a value above. The necessary 
aerodynamic terms are computed, the required lift, tip path plane angle, required thrust, 
coning angle, etc. The Tmcalc.m, Thrcalc.m, and Dmcalc.m subroutines written for the 
performance model are called once which gives the values for thrust, drag and torque of 
the rotor. Cj, Ch, Cq, are then computed directly using there respective defining 
equations. Each of these M-files are run only once rather than several times in an 
iterative process as in the trim case for the Performance Module. A detailed description 
of how these M-files are structured can be found in Nicholson’s thesis [Ref. 1]. The 
values for ais and bis are computed directly from explicit formulas. The following 
assumptions were made in each subroutine. 

1. Tip speed ratio p 

Stab_calc_mu.m is the name of the M-file that calculates the variables 
while varying the parameter p. Varying the airspeed by 15% in either direction, 
effectively varies the parameter p. No assumptions have to be made, and therefore the 
subroutine runs very similarly to the trim routine, except that it is only run once and no 
adjustment to the collective pitch is made. 

2. Collective Pitch 0o 

Stab_calc_to.m is the name of the M-file that calculates the variables 
while varying the parameter 0o. 0o is varied by one degree in either direction. The 
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calculation for the coning angle is computed as a function of the change in 0o by the 
following equation; 






This method for determining the coning angle is necessary because the original 
Trim.m routine varies P as a function of |i. If p is held constant then P would be held 
constant and erroneous values for the parameters would be obtained. By varying the 
coning angle as a function of collective pitch change allows for the proper determination 
of the variables. 



while varying the parameter X\ The inflow ratio was varied by 50% in either direction. 
The tip path plane was held constant. The coning angle was varied according to the 
following equation; 



same reasons as stated above. 

C. TAIL ROTOR DERIVATIVES 

Due to the small variations in the derivatives for the tail rotor, and it’s overall 
contribution to the total stability derivatives JANRAD does not compute tail rotor 



3. Inflow ratio with respect to tip path plane X' 



Stab_calc_la.m is the name of the M-file that calculates the variables 




P again had to be varied as a function of inflow angle which is a function of X" for the 
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derivatives in the same manner as the main rotor derivatives. While Prouty [Ref. 9] 
alludes that the chart method can be used to determine the tail rotor derivatives, JANRAD 
simply uses closed formed solutions for these parameters. 

D. FUESELAGE DERIVATIVES 

The fuselage derivatives are hard wired into the program using the charts given 
for the Prouty Example Helicopter in Appendix A of his book. These should be 
acceptable for most normally configured helicopter designs. If however it is determined 
that these values differ greatly from the Prouty curves, then the Cbodygrp.m M-file must 
be modified, to reflect the appropriate values. [Ref. 9] 

E. THE REST OF THE COMPUTATIONS 

A detailed description of the rest of the Stability and Control Module is explained 
in detail in Walter M. Wirth Jr.’s thesis [Ref. 3]. The computations differ only in the 
areas mentioned previously. 

F. THE RESULTS 

Once the stability derivatives are determined, JANRAD uses the same equations 
from Prouty’ s book to determine the Total Forward Flight Derivatives and to construct 
the linear mode. A detailed analysis of the results of JANRAD as compared to Prouty’ s 
for his example helicopter are given in a later section. [Ref. 9] 
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VII. OUTPUT 



A. THE LINEAR MODEL SCREEN 

The first screen that appears after the calculations are complete allows the user to 
see the actual A and B matrices and also indicates the vector for the states, and the inputs. 
Figure 3. 
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Figure 3. Linear Model of Helicopter Window 



From this point the user can decide to save his output to a file, change input 
parameters an re-run the calculations, or proceed the time and frequency response screen. 
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The A matrix is an 8 X 8 matrix containing constants that completely describes 
the linear approximations to the equations of motion of the aircraft. The B matrix is a 4 
X 8 matrix that describes the relationship between the input from the pilot controls and 
the input to the modeled system. With this B matrix a collective, cyclic, or directional 
input can be specified to the pilot controls and the appropriate rigging compensation are 
automatically made. 



B. TIME AND FREQUENCY RESPONSE SCREEN 

The Time and Frequency Response screen allows the user to analyze the response 



of the helicopter to specified inputs. Figure 4. 
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Figure 4. Time and Frequency Response Window 
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Step or impulse inputs can be simulated in either the collective, cyclic, or 
directional channels and responses of any of the eight states can be observed. Figure 
5 is an example of one of the output plots generated for the response of role rate to a 
lateral cyclic step input. 




0 0.5 1 1.5 2 2.5 3 3.5 

time (sec) 

Figure 5. Example of Step Response Output Plot 



A frequency analysis can also be obtained by specifying Bode plots. In this 
manner, the Bode plots for each channel can be generated. Figure 6 is an example of a 
Bode plot for the system between roll rate an lateral cyclic input 
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Response of Roll Rate (p) to Lateral Cyclic Input 





Figure 6. Example of Bode Plot Output 

A stability analysis can be performed by specifying eigenvalues. This option 
generates and plots the eigenvalues of the A matrix which are the poles of the system. 
The coupled eigenvalues along with the decoupled lateral and longitudinal eigenvalues 
can be viewed in graphical form. Figure 7 is an example of a plot of the coupled 
eigenvalues. If the numerical values are desired, or a more detailed stability analysis is 
needed, the user can load the output file containing the A and B matrices at the command 
line or create a unique M-file to generated specific analyses. 
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Figure 7, Example of Eigenvalue Output Plot 
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VIII. COMPARISON WITH KNOWN HELICOPTER MODELS 



A. PROUTY’S EXAMPLE HELICOPTER IN A HOVER 

Prouty [Ref. 9] gives the characteristic equation of the longitudinal motion for his 

example helicopter in his book. An extensive analysis of the lateral motion of the 

helicopter in this regime is not performed, therefore the comparison for the hover mode 

will be done only in the longitudinal direction. The following are the characteristic 

equations for the example helicopter in a hover. 

Prouty : i “ + 1 ,02i ^ + 0.2 U ^ + 0. 1 + .034 = 0 
JANRAD : i " + 1 . 1 1 3 + 0.2279i ^ + 0. 1 383i + .0374 = 0 

While the coefficients of the polynomial to not match exactly they are very close. 

A more intuitive method for comparing the two systems is to observe the eigenvalues. 

Figure 8 plots the roots of the above equations, which are the eigenvalues of each system 

as given below: 

Prouty: si= -0.28, S2= .076+0.360, S3 = 0.076 - 0.360i, S4= -0.89 

JANRAD: Si= -0.2704, S2= .0713+ 0.36791, S3 = 0.0713 - 0.36791, S4= -0.9851 
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Eigen\«lues of Longitudinal Equations for the Prouty Example Helicopter in a Hover 
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Figure 8. Eigenvalues of Longitudinal Equations in a Hover 

A quick glance at the plot will tell you how well JANRAD is performing. The 
eigenvalues for the two systems are very close. The dominant poles (A and B) in each 
case lie very close to each other, providing similar response in the time domain. 

B. PROUTY’S EXAMPLE HELICOPTER IN FORWARD FLIGHT 

The analysis for the forward flight regime is broken into the longitudinal and 
lateral cases. While a coupled response analysis can be done, decoupling the equations 
will emphasize the similarities and differences between Prouty’ s [Ref. 9] numbers and 
JANRAD’s and will also allow for easier determination of the effected channels. The 
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results from the forward flight mode do not compare as well as for the hover regime. 
This is due to the difficulty of the determination of the rotor derivatives. However, as 
this program is to be used only for preliminary design, it has been determined that the 
numbers correspond well for this purpose. 

1. Lateral Motion 

The following are the characteristic equations for the lateral motion of the 

example helicopter at 1 15 knots. 

Prouty : +8.460^^ -17.68i" +45.54i + 2.2548 = 0 

JANRAD : i'' + 9.341 + 20.639 + 57.7401i + 1 .685 1 = 0 

Figure 9 plots the roots of the above equations, which are the eigenvalues 
of each system as given below: 

Prouty: si= -6.602, S 2 = -0.7841+2.43171, S 3 = -0.7841-2.43171, S 4 = -0.05058 

JANRAD: si= - 7.6237, S 2 - 0.8441+ 2.60441, S 3 = - 0.8441-2.60441, S4= -0.0295 
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Eigenvalues of Lateral Equations for the Prouty Example Helicopter at 115 knots 
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Figure 9. Eigenvalues for Lateral Motion in Forward Flight 



This plot will again tell you how well JANRAD is performing. The 
dominant poles (A and B) in each case lie very close to each other, providing similar 
response in the time domain. Figure 10 plots a time history for the response of yaw rate 
to an impulse pedal input using the uncoupled lateral equations. It is evident that the two 
systems have very similar time histories. 
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Time History for Response of Yaw Rate to Impulse Pedal Input (uncoupled) 




0 5 10 15 

time (sec) 

Figure 10. Time History Comparison 



2. Longitudinal Motion 

The following are the characteristic equations for the longitudinal motion 

of the example helicopter at 1 15 knots: 

Prouty : i +1.545^^ - 2.61^^ + 0.0288i + 0.0949 = 0 
JANRAD: 5 " +1.8637i^ -4.7614j^ +0.1108i + 0.08500 = 0 

Figure 11 plots the roots of the above equations, which are the 
eigenvalues of each system as given below: 

Prouty: si= -2.907, S 2 = -0.1710, S 3 = 0.1828, S 4 = 1.085 
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JANRAD: Si= -3.2958, S2= -0.1418, S3 = 0.1255, S4= 1.4484 



Eigenvalues of Longitudinal Equations for the Prouty Example Helicopter at 115 knots 
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Figure 11. Eigenvalues for Longitudinal Motion in Forward Flight 
C. HANDLING QUALITIES 

The charts in Appendix B show how the handling qualities of the Prouty example 
helicopter [Ref. 9] using the model given in his book compare to that computed using 
JANRAD. It graphically depicts the validity of the JANRAD program. 
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IX. CONCLUSIONS AND RECOMEND ATIONS 



A. CONCLUSIONS 

The ability to produce a linear model of a helicopter for stability and control 
analysis is an invaluable tool in the design process. With the development of the 
JANRAD Stability and Control Module, the generation of this linear model has become 
as easy as entering a few parameters and pressing a few buttons. The user can modify any 
one of the various inputs and re-compute the model in a matter of minutes. In this way, 
many different configurations can be obtained and the one best suited for the particular 
application can be selected. 

It has been shown that the solutions produced by JANRAD match closely with 
those presented by Prouty in his book [Ref. 9]. While the techniques used to compute the 
stability derivatives are very similar, the method for computing the terms comprising 
these values differs greatly. This fact only lends to further trust that the values produced 
by both Prouty [Ref. 9] and JANRAD are correct. 

The output screens created enable the user to quickly and easily evaluate the 
response of his design. Again, changes can quickly be made and the analysis repeated to 
ensure the best possible design. 

With the evolution of the Stability and Control Module of JANRAD the 
helicopter designer can concentrate on design rather that spending time devising a means 
of analysis. 
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B. RECOMMENDATIONS 



Due to the time limitations and the necessity to redesign the method for 
computation of the stability derivatives the Rotor Dynamics Module of JANRAD was not 
developed. The development of this module and the addition of it to JANRAD would 
greatly enhance the design process. It can easily be added to JANRAD from the Options 
screen. 

While the Performance module originally was designed for fan in tail and 
NOTAR capabilities, somewhere in the design process this function has been abandoned. 
Not only does the Stability and Control module not support it, but the Performance 
Module has also lost this capability. A warning screen has been created to prevent the 
user from attempting this type of design. 

Finally, due to the lack of another valid linear model of a different helicopter, only 
Prouty’s example helicopter was used to verify the output. In order to ensure that the 
output is valid for a variety of configurations, the program should be compared with other 
known linear models. 
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APPENDIX A. USER’S GUIDE 



The JANRAD version 6.0 Users Guide is written as a brief introduction to the 
Joint Army/Navy Rotorcraft Analysis and Design computer program. It is intended to 
explain the basic features and operation of the program and assumes a basic knowledge of 
helicopter mechanics and the use of the MATLAB® programming language by The 
MathWorks® Inc. 

A. SYSTEM REQUIRMENTS 

JANRAD version 6.0 requires MATLAB® version 5.0 or MATLAB Student 
Edition version 5.0 or higher. It will not run on any previous versions. JANRAD version 
6.0 will fit on a single 1 .44 MB floppy disk and will need that much memory available for 
installation. JANRAD requires only the hardware to support MATLAB® 6. 

B. INSTALLATION 

The recommended installation of JANRAD version 6.0 is accomplished by first 
creating a subdirectory of MATLAB called JANRAD. The entire contents of the 
JANRAD version 6.0 floppy disk should be copied into this directory. Include all M-files 
and .mat files. JANRAD version 6.0 will not run without all of the .mat files. 

It is recommended that this new subdirectory be added to the MATLAB 5 search 
path. This procedure will eliminate the need to change the working directory from the 
command line each time JANRAD version 6.0 is run and allows you to work from a 
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floppy disk if desired. Adding the subdirectory to the search path is accomplished by 
selecting File, Set Path... from the File menu. Change the current directory to the new 
Janrad98 subdirectory by using the Browse button. Then press the Add to Path push 
button. You will then be given the option to save the new path or just use the new path 
for the active session. It is recommended to save this path. Figure A.l shows the 
MATLAB® Path window. 
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Figure A. 1. MATLAB 5 Path Window 



C. STARTING JANRAD VERSION 6.0 

Typing Janrad98 (lowercase, one word) at the command line prompt of a current 
MATLAB session starts JANRAD version 6.0. This action will launch the JANRAD 
version 6.0 welcome window shown in Figure A.l. 
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Joint Army/Navy Rotor Analysis and Design 



Department of Aeronautics & Astronautics 
Navai Postgraduate School 
Monterey^CA S3940 



March 25, 1938 
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Figure A. 2. JANRAD version 6.0 Start Up Window 
D. PERFORMANCE MODULE 

As an example, the use of this program will be demonstrated by selecting a 
previously saved input data file and changing the weight, airspeed and pressure altitude. 
User defined blade elements and blade twist will be entered. Tail rotor parameters will be 
verified but not changed. The input and output files will be saved and printed. After the 
performance analysis is complete, we will then iterate on airspeed from 80 to 100 knots in 
increments of 5 knots. 

First, from Figure A. 2, select the Edit/Run Existing File radio button. It is usually 
easier to edit an existing file because Create New File will not give you the chance to 
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change the working directory if desired. Once the selection has been made, press the 
Continue » button. 
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Figure A. 3. Selecting a File to Edit 



The next figure window to appear is shown in Figure A.3. This window allows 
you to change the working directory and select an input data file. To change the 
directory, type or edit the desired path in the edit box. All of the .mat files listed in the 
working directory are displayed in the list box. Input data files are saved as filename. mat. 
A note of caution here, each GUI window also has an associated guifilename.mat file. 
The user should name input/output data files using helicopter aircraft designations such as 
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UH_60A, h_99 or h _designl to differentiate from JANRAD version 6.0 GUI files. Next, 
select an input file to edit by clicking on the file name. For this example, we will edit the 
UH_60A.mat file. Then press Continue ». 



The Performance Input window will be displayed as in Figure A.4. The input data 
will be displayed within the appropriate edit boxes. Any or all of the parameters can be 
changed at this point without altering the original data file. You will have the opportunity 



to save the new data if you chose after the analysis has been completed. 
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Figure A. 4. Performance Input Parameters 



The airspeed, weight and pressure altitude can be edited by highlighting and 
typing 100, 17,000 and 2,000 in the respective edit boxes. Pressing the enter key is not 
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necessary to enter the new value. Using the Tab key or clicking on another edit box or 
control will enter any changes. If the user wishes to mesh airfoils, click the Blade Airfoil 
Type scroll bar, and select Airfoil_Mesh. The Begin Mesh at (r/R) box will be enabled 
and a value may be entered. At this point, select both the non linear blade twist and 
uneven blade element spacing blocks. Note that the blade twist and number of blade 
element boxes are disabled. The Print Screen button will print a draft copy of the GUI 
window with the displayed values if desired. It however, will not record the file name for 
which the values are stored. Now press the Continue » button. 

From the Performance Input window, JANRAD version 6.0 will call the 
Compound Helicopter and Tail Rotor Parameters window. Figure A.5. In our example 
we are dealing with a conventional helicopter, therefore no wing or auxiliary thrust is 
present. We do, however, need to verify the tail rotor parameters which have been either 
loaded from the data file or calculated. The parameters will be entered in the appropriate 
tail rotor type. Press OK when ready to continue. 
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Figure A. 5. Enter Compound Helicopter and Tail Rotor Parameters 



With either non-linear blade twist or uneven blade element spacing selected, 
JANRAD version 6.0 will next go to the Blade Element page, shown in Figure A.6, 
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Figure A. 6. Enter Uneven Blade Elements & Non linear Blade Twist 



The grip ratio contained in the loaded data file will automatically be displayed 
along with the effective blade radius. The user can enter up to twenty blade elements and 
the corresponding twists. IMPORTANT! Ensure dimensions are entered to the left edge 
of the blade element from the blade root. JANRAD version 6.0 will automatically 
calculate the values at the center of the blade elements. Also, do not enter any value 
greater than the effective blade radius or an error message will appear. After entering the 
desired values press Continue. 
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Next, JANRAD version 6.0 will call the Iteration Method window as shown in 



Figure A.7. 
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Figure A. 7. Iteration Method / Analysis Window. 



JANRAD version 6.0 will call its computational routines from this window. By 
choosing No Iteration and Analyze, JANRAD version 6.0 will run the parameters selected 
from the previous window. The Analyze pushbutton initiates the computational routines. 
All controls on the GUI will be disabled except the Interrupt pushbutton. The Analysis 
Status Box will display the performance routine status, clock, iteration number, and 
iteration parameter value as JANRAD trims the rotor and adjusts the collective and cyclic 
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mathematically. The Interrupt button will halt the routine and enable the Resume control 
and JANRAD Options menu on the GUI. This will allow the user to change parameters, 
quit or return to beginning. The Resume button will continue with the performance 
routine where it originally interrupted. It is worth noting that the Interrupt button will not 
always respond immediately. However, once MATLAB finishes its current line 
evaluation, the calculation will pause. 

The Status Box will inform the user when calculations are complete. The 
Performance Output window will be displayed automatically. The Performance Output 
window shown in Figure A.8 displays the performance results. These results can be 
saved and the screen printed from this window. However, it is recommended to print the 
saved input and output files through the next window. By pressing the Options » push 
button, the saved input and output files can be printed simultaneously and in a more 
usable format. The input/output files can be saved after activating the checkboxes, 
typing a file name and pressing the Save or the Options » push buttons. 
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Figure A. 8. Performance Output Window 



The Options window in Figure A.9 provides the capability to print the latest files, 
go to create plots screens, and eventually, select additional analysis routines. At this time 
however, the Stability and Control and Rotor Dynamics routines have not been 
completed. If selected, you will be reminded of this limitation. 

From here, we will go back to calculate performance parameters by varying 
airspeed. This is done by pressing the Change Iteration Method radio button and the 
Continue » push button. This will go back to Figure A.7. To vary airspeed, press the 
Airspeed radio button and then Analyze. 
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Figure A. 9. Options Window. 



Figure A. 10 shows the Iteration Parameters window. For example, by typing 80, 
100 and 5 in the appropriate edit boxes and selecting Analyze y the performance routine 
will calculate various performance results with respect to airspeed varying from 80 to 100 
knots. Later, the user will be able to create plots of many of these output parameters. 
Note: the Aspect Ratio edit box and HIGE check box are only enabled when Altitude 
Iteration or Wing Span Area is selected. 
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Figure A. 10. Iterations Parameter Window. 



Figure A. 1 1 shows the Create Plots screen for the Airspeed iteration method. Any 
or all of the plots may be selected. The plots are created and minimized as JANRAD 
automatically recalls the Options window, Figure A.9. Each iteration method has its own 
create plots screen. Some plots require additional user input prior to creating them. 

Figure A. 12 shows an example airspeed iteration subplot. These plots are 
primarily used to examine trade off studies during the design process. 
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Figure A. 11. Example Iteration Method Create Plot Window 



The M-file create_plots.m contains the code for all of the iteration method create 
plot screens. If any additional plots are desired, changes can be made to this file. 
However, the plots should be substituted for those plots already existing, and the existing 
code should be commented out, not removed. Adding plots requires changes to multiple 
files for proper operation and should not normally be attempted. Always document 
changes made to the code for future users. 
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E. HINTS FOR JANRAD VERSION 6.0 PERFORMANCE MODULE 

The following paragraphs list some recommendations for the most efficient use 
of JANRAD VERSION 6.0. They are a guide based on observation, experience and 
knowledge of the code. Any other recommendations should be addressed to the 
Helicopter Design Instructor at the Naval Postgraduate School for implementation into 
the next version of JANRAD version 6.0. 
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JANRAD version 6.0 was designed for robust operations. However, because this 
is the first version to utilize a Graphical User Interface, not all cases of user inputs have 
been exercised. If the program appears not to be working properly, quit JANRAD using 
the options menu available on all but the first window. This action will quit JANRAD, 
close all MATLAB figure windows and clear the base workspace. Restart JANRAD by 
typing janrad98 at the command line. 

F. STABILITY AND CONTROL MODULE 

In order to run the stability and control portion of JANRAD the Performance 
Module must me run first. WARNING: The analysis must be done in the No 

Iteration mode in order to ensure proper calculation. 

Figure A. 13 and A. 14 show the first screens to appear if the Stability and Control 
box is clicked on the Options Screen, Figure A.9. The current version JANRAD is not 
configured for NOTAR analysis, therefore zeros should be entered for values in that 
section. If a compound helicopter is being designed then the wing parameters are to be 
entered, if not then enter zeros for the wing values. 

Rigging values can be difficult to evaluate. If they are not know then enter a value 
of 1.0 for these values. This will not effect the A matrix, however the B matrix will be 
effected. Entering a value of 1.0 will result in a one to one correlation of input from the 
controls to the input to the system. 
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Figure A. 13. Stability and Control Parameter Page 1. 



All of the required dimensions are listed in the figure and page numbers for 
Prouty’s [Ref. 9] are given. 

After all the parameters have been entered and the Continue » button is pushed, 
the next screen is Stability and Control Status, Figure A. 15. This screen allows the user 
to see the calculations in progress. It also allows the user to know that the calculations 
are still being made. If the run elapsed time has stopped changing then there is probably a 
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testability and Control Parainetera page 2 
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Figure A. 14. Stability and Control Parameters Page 2. 



hang up in the program and the user should start over. 

After the calculations are completed the linear model of the helicopter is 
displayed, Figure A. 16. This screen also shows the order of the states and the inputs. 
From this screen the user has three options. Pressing the Save to File button brings up a 
screen prompting for a file name in which to save the input, and output values. The input 
values for both the Performance Module and the Stability and Control Module are saved 
to a single file. The output file will contain only the A and B matrices that comprise the 
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linear model. The output from the Performance Module can still be accessed from the 



file that was saved at the end of that module 
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Figure A. 15. Stability and Control Status. 
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I Lineal Model of Helicopter 





Pressing the Modify inputs and re-trim will send the user back to the input page 
for the Performance Module. If any inputs are changed then a new trim solution must be 
obtained before the Stability and Control Module can be run. The program is set up so 
that even if no inputs are changed in the Performance Module, the trim solution must still 
be re-computed. This was done to simplify the program and to ensure that a correct 
solution for the Stability and Control Module is obtained. 
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Figure A. 17. Time and Frequency Response Window 



If the Coupled Response button is pressed, the screen shown in Figure A. 17 will 
appear. This window will allow the user to perform various time and frequency analyses. 
The purpose of this screen is to give the user a idea of the general handling qualities of 
his design. If an extensive analysis is desired then the user should create his own 
MATLAB program and load the values for the A and B matrices save in the previous 
screen. 

The user must select the desired input channel from the four choices in the left 
upper comer of the screen. Only one input can be selected at time. Once an input is 
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selected, the other three choices will be shaded and the user will not be able to select 



these until his previous selection had been deleted. 

Next the user must select the response channel. One or all of the channels can be 
selected. The user is warned that selecting all the channels can cause a significant time 
delay depending on the speed of the hardware in use. 

Finally, the user must select the type of analysis desired from the menu in the 
lower left hand comer of the screen. The user must then press the Continue » button 
and the desired plots will be displayed. 
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APPENDIX B. HANDLING QUALITIES 



Vertical Rate Response to Collecti\e(3.4.3) 




Figure B. 1. Flight Path Control 



Pitch to Roll Coupling (3.4.4.2a) JANRAD 





Figure B. 2. Inter Axis Coupling 
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Figure B. 3. Attitude Quickness and Large amplitude Heading Changes 
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Spiral Stability (3.4,8 2) 




Figure B. 5. Spiral Stability 
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APPENDIX C. VARIABLE LIST 



Computational 

a 

A 

Ab 

Abt 

Adisk 

Afh 

afoil 

Afv 

Ah 

ah 

A1 

alph 

alpha 

alphas 

alphaT 

alploh 

alplov 

alplow 

alpv 

alpw 

als 

altpp 

ao 

aot 

Ap 

At 

at 

Av 

av 

Aw 

aw 

b 

B 

beta 

betao 

betat 

bh 

bhoriz 

B1 

Bis 

bv 

bvert 

bw 

bwing 

c 

cblade 

CD 

CDhoriz 

cdoh 

CDohoriz 

CDovert 



Variables 

lift curve slope of rotor system airfoil 

rotor disk area 

area of blades 

area of tail rotor blades 

area of rotor disk 

fuselage equivalent flat plate drag area 

rotor system airfoil type (HH02/VR12) 

vert, projected area (fuselage area under disk) 

area of the horizontal stab 

lift curve slope of the horizontal stab 

lateral cyclic pitch 

angle of attack of horizontal stab 

angle of attack, rotor blade radial segment 

angle of attack WRT shaft axis 

rotor tip path plane angle 

alpha zero lift of the horizontal stab 

alpha zero lift of the vertical stab 

alpha zero lift of the wing 

angle of attack of vertical stab 

angle of attack of wing 

longitudinal flapping 

mean alpha TPP 

main rotor coning angle 

tail rotor coning angle 

projected area of fuselage under rotor 

disc area of the tail rotor 

tail rotor blade lift curve slope 

area of the vertical stab 

lift curve slope of the vertical stab 

area of the wing 

lift curve slope of wing 

number of rotor blades 

tip loss parameter 

trim sideslip angle 

rotor coning angle 

geometric angle, rotor blade radial segment 

spari of the horizontal stab 

span, horizontal tail 

longitudinal cyclic pitch 

lateral flapping 

semispan of the vertical stab 

span, vertical tail 

span of the wing 

span, wing 

main rotor chord 

chord, rotor blade 

drag coefficient, rotor blade radial segment 

drag coefficient, horizontal tail 

Cdo of the horizontal stab 

profile drag coefficient, horizontal tail 

profile drag coefficient, vertical tail 
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cdow 

CDowing 

CDvert 

CDwing 

CH 

ch 

CH_sig 

Chsig 

CL 

CLhoriz 

CL vert 

elver tmax 

CLwing 

emun 

CON_b 

CON_cdo 

CON_lt 

CON_omega 

CON_R 

ct 

cpipitch 

cpiroll 

cpiyaw 

cppitch 

cproll 

cpyaw 

CQ 

cq 

CQ_sig 

cqsig 

CT 

ct 

CT_sig 

ctr 

ctsig 

ctsigt 

ctw 

dD 

ddD 

ddDM 

ddM 

ddT 

deldv 

delih 

deliv 

deliw 

delM 

deltas 

delvinax 

desdmdq 

desdndr 

desdrdp 

detafdalpfh 

detafdalpfw 

detafdbeta 

Dftotal 

Dfuse 



Cdo of the wing 

profile drag coefficient, wing 

drag coefficient, vertical tail 

drag coefficient, wing 

rotor H force coefficient 

coefficient 

CH/solidity 

Ch/ sigma 

lift coefficient, rotor blade radial segment 
lift coefficient, horizontal tail 
lift coefficient, vertical tail 

maximum cl of the vertical stab with full rudder 
lift coefficient, wing 

design Cmu for NOTAR boom in hover (.3 ,6) 

Conventional tail rotor # of blades 

Conventional tail rotor cdO 

Conventional tail rotor moment arm 

Conventional tail rotor speed 

Conventional tail rotor radius 

tail rotor chord 

Control power/inch pitch 

control power/ inch Pitch 

Control power/ inch Pitch 

Control power pitch 

Control 

Control power yaw 

rotor torque coefficient 

coefficient of torque 

CQ/solidity 

Cq/sigma 

rotor thrust coefficient 
coefficient of thrust 
CT/solidity 
wing root chord 
Ct/sigma 

ct/sigma of the tail rotor 
wing tip chord 

differential drag, rotor blade radial segment 
differential drag, rotor blade tip 
differential drag moment, rotor blade tip 
differential thrust moment, rotor blade tip 
differential thrust, rotor blade tip 

biplane effect mutual inter, tail rotor and vert. stab 

span efficiency factor of the horizontal stab 

span efficiency factor Of the verlical stab 

span efficiency factor of the wing 

change in total thrust moment 

tail rotor delta 3 angle 

maximum rudder deflection 

designed pitcb damping (dM/dq) 

designed yaw damping (dN/dr) 

design, d roll damping (dR]dp) 

fuselage downwash ratio for the horizontal stab 
fuselage downwash ratio) for the wing 
fuselage sideslip ratio {= depsilondalpha) 
resultant of fuselage drag and aux thrust 
total drag generated by non rotor bodies 
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Dhor i z 
Dian 
DL 
dM 

DMpsi 

dr 

Drotor 

dthetadM 

Dvert 

Dwing 

e 

ewing 

filename 

filenames 

FM 

g 

grip 

GW 

hh 

hhd 

hm 

hmd 

Hrotor 

hslot 

ht 

htd 

htn 

htnd 

hv 

hvd 

hw 

hwd 

i 

Ib 

Ibt 

Ic 

ih 

it 

itnd 

iw 

Ixx 

Ixz 

lyy 

Izz 

lamdaT 
lamp 
Lf total 
Ih 
Ihd 

Lhoriz 

Im 

Imd 

lockno 

loclcnot 

It 

ltd 

Itn 



drag, horizontal tail 
NOTAR boom diameter 
disk loading 

diff. thrust moment, rotor blade radial seg 
total blade drag moment at specific azimuth 
rotor blade radial segment width 
differential thrust, rotor blade radial segment 
change in eye pitch with change in thrust moment 
drag, vertical tail 
drag, wing 

effective hinge offset 
wing efficiency factor 
name of input file 

name of file used in plot routines 
figure of merit 
acceleration due to gravity 

length of inner non aerodynamic portion of blade 

aircraft gross weight 

horizontal stab vertical offset 

height from waterline to horizontal tail 

main rotor vertical offset 

height from waterline to main rotor hub 

rotor H force 

total of slot heights for NOTAR boom 

tail rotor vertical offset 

height from waterline to tail rotor hub 

NOTAR thruster vertical offset 

height from waterline to NOTAR 

vertical stab vertical offset 

height from waterline to vertical fin 

wing vertical offset 

height from waterline to wing 

shaft incidence main rotor 

blade flapping inertia 

tail rotor blade flapping moment of inertia 
Ixx*Izz 

angle of incidence of horizontal stab 

WI rotor longitudinal offset 

fuselage station of NOTAR boom 

angle of incidence of wing 

mass moment of inertia about x axis 

mass moment of inertia about xz plane 

mass moment of inertia about y axis 

mass moment of inertia about z axis 

forward flight induced velocity parameter 

lambda' inflow ratio WRT TPP 

total lift generated by non rotor bodies 

horizontal stab longitudinal offset 

fuselage station of horizontal tail 

lift, horizontal tail 

main rotor longitudinal offset 

fuselage station of main rotor hub 

main rotor lock number 

tail rotor lock number 

tail rotor longitudinal offset 

fuselage station of tail rotor hub 

NOTAR thruster longitudinal offset 
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Ittnd 

Iv 

Ivd 

Lvert 

Iw 

Iwd 

Lwing 

Mlc 

Mis 

Machtip 

maxr 

mblade 

Mpsi 

mu 

mu 

mut 

n 

naz 

nbe 

nt 

ohm 

ohmt 

omega 

PA 

phi 

phin 

phitip 

pho 

powet 

Protor 

prpitch 

prroll 

pry aw 

psi 

q 

q 

qhq 

Qrotor 

qvin 

qvq 

r 

R 

R 

Rbar 

RbarT 

Reff 

rho 

rho 

rT 

Rt 

Shoriz 

sidearm 

sigma 

sigraat 

solidity 

Svert 

Swing 



fuselage station of NOTAR thruster 
vertical stab longitudinal offset 
fuselage station of vertical tail 
lift, vertical tail 
wing longitudinal offset 
fuselage station of wing 
lift, wing 

first harmonic (cosine) thrust moment coef. 
first harmonic (sine) thrust moment coefficient 
Mach number at rotor blade tip 
maximum rudder deflection 
mass of rotor blade 

total blade thrust moment at specific azimuth 

advance ratio 

advance ratio 

tail rotor advance ratio 

a counter in CTPLOTS.M 

number of azimuth sectors 

number of blade elements 

number of tail rotor blades 

omega 

tail rotor omega 

rotor rotational velocity 

pressure altitude 

inflow angle, rotor blade radial segment 
NOTAR thruster sleeve rotation angle 
inflow angle, rotor blade tip 
roll trim attitude (euler angle) 
roll 

power required by rotor 
Pilot rating (dM/dq)/Iyy) 

Pilot rating (dR/dp)/Iy x) 

Pilot rating (dN/dr)/Izz) 

azimuth angle 

dynamic pressure 

dynamic pressure, 1/2 rho V'2 

horizontal tail dynamic press ratio (qh/q) 

rotor torque 

dynamic press due to downwash at the NOTAR slots 

vertical tail dynamic press ratio (qv/q) 

radius, rotor blade radial segment 

rotor blade radius 

blade radius 

Reff e 

rT*Rbar 

effective rotor blade radius (tip loss) 
ambient air density 
air density 

location of resultant thrust vector 
tail rotor blade radius 
area, horizontal tail 

maximum pe" travel or twist grip deflection 
solidity 

tail rotor solidity 
solidity 

area, vertical tail 
area, wing 
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swirl 

T 

T 

tailrot 

Taux 

temp 

theta 

thetalc 

thetals 

thetal 

thetalt 

thetao 

thetao 

thetat 

tho 

Tpsi 

tr 

Tt 

tv 

twist 

uo 

Up 

Uptip 

Ut 

Uttip 

V 
vl 

vals_la 

vals_mu 

vals_to 

vbls_la 

vbls_mu 

vbls_to 

vchsig_la 

vchsig_mu 

vchsig_to 

vcqsig_la 

vcqsig_mu 

vcqsig_to 

vctsig_la 

vctsig_mu 

vctsig_to 

vfvl 

vhvl 

vi 

Vinf 

VI f 

VO 

Vtip 

wi_la 

wi_mu 

wi_to 

vwvl 

wblade 

wo 

xcg 

xcouple 



mean swirl angle of main rotor meas at the NOTAR slots 

rotor thrust 

thrust 

value corresponding to type of tail rotor 
auxiliary thrust 
ambient air temperature 
cyclic pitch 

first harmonic (cosine) of cyclic pitch 

first harmonic (sine) of cyclic pitch 

main rotor blade twist 

tail rotor blade twist 

collective pitch at .7 r/R 

blade pitch at root 

induced angle at the tip 

trim pitch attitude (euler angle) 

total blade thrust at specific azimuth angle 

rotor blade taper ratio 

thrust of the tail rotor 

vertical stab longitudinal offset 

geometric rotor blade twist 

X initial velocity 

vertical component of velocity 

vertical component of velocity at tip 

horizontal component of velocity 

horizontal component of velocity at tip 

foirward velocity 

induced flow velocity at a hover 
vector of als values for lambda variation 
vector of als values for mu variation 
vector of als values for thetaO variation 
vector of bis values for lambda variation 
vector of bis values for mu variation 
vector of bis values for theataO variation 
vector of CH/ sigma values for lambda variation 
vector of CH/ sigma values for mu variation 
vector of CH/sigma values for thetaO variation 
vector of CQ/sigma values for lamdda variation 
vector of CQ/sigma values for mu variation 
vector of CQ/sigma values for thetaO variation 
vector of CT/sigma values for lambda variation 
vector of CT/sigma values for mu variation 
vector of CT/sigma values for thetaO variation 
rotor downwash ratio for the fuselage 
rotor downwash ratio for horizontal stab 
induced velocity 
forward airspeed 

approximation for vi at forward airspeed 
y initial velocity 
tip speed 

vector of inflow velocity for lambda variation 

vector of inflow velocity for mu variation 

vector of inflow velocity for theatO variation 

rotor downwash ratio for wing 

weight of rotor blade 

z initial velocity 

height from waterline to eg 

designed cross coupling 
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ycg 


length from buttline to eg 




yhd 


length from buttline to horizontal 


tail 


ym 


main rotor lateral offset 




ymd 


length from buttline to main rotoi 


■ hub 


ytd 


length from buttline to tail rotor 


hub 


Ytmaxn 


maximum Y force from NOTAR thruster 


ytnd 


length from buttline to NOTAR 




Yv 


side force of vertical stab 




yvd 


length from buttline to verticle tail 


ywd 


length from buttline to wing 




zcg 


fuselage station of eg 




Zh 


vertical force of horizontal stab 




Zw 


vertical force of win 




Cruise Basic Main 


Rotor Derivatives 




da Ida 


dals/dAl 




daldb 


dals/dBI 




daldlamp 


dals/d (lambda' ) 




daldmu 


dals/dmu 




dal dp 


dals/dp 




daldq 


dals/dq d 




daldtheto 


dals/dtheta (o) 




dbetdydot 


d (Beta) /dYdot 




dblda 


dbls/dAl 




dbldb 


dbls/dBI 




dbldlamp 


dbls/d ( lambda ' ) 




dbldmu 


dbls/dmu 




dbldp 


dbls/dp 




dbldq 


dblsldq 




dbldtheto 


dblsldtheta (o) 




dchsigda 


d(Ch/sigma) /dais 




dchsigdb 


d(ch/sigma) Idbls 




dchsigdlamp 


d(Ch/ sigma) /d( lambda' ) 




dchsigdmu 


d(Ch/ sigma) Idmu 




dchsigdtheto 


d (Ch/ sigma) /dtheta (o) 




dctsigdlamp 


d (Ct/ sigma) /d( lambda ' ) 




dctsigdmu 


d(Ct/sigma) /drnu 




dctsigdtheto 


d ( Ct / s igma ) / dtheta ( o ) 




dcqsigdlamp 


d(Cq/ sigma) /d( lambda' ) 




dcqsigdmu 


d(Cq/ sigma) /drnu 




dcqsigdtheto 


d(Cq/ sigma) /dtheta (o) 




dcysigdb 


d(Cylsigma) /dbls 




dlampdxdot 


dlambda' ) /dXdot 




dlampdydot 


d ( lambda ' ) / dYdot 




dlampdzdot 


d ( lambda ' ) / dZdot 




dmdalsm 


dM/dals main rotor stiffness 




dmudxdot 


dmu/dxdot 




drdblsm 


dR/dBls main rotor stiffness 




Cruise Main Rotor 


Derivatives 




dmdalm 


dM/dAl 




dmdblin 


dM/dBl 




dmdpm 


dM/dp 




dmdqm 


dM/dq 




dmdthetom 


dM/dtheta (0) 
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dmdxdotm 

dmdydotm 

dmdzdotm 

dndrm 

dndtheom 

dndxdotm 

dndzdotm 

drdalm 

drdblm 

drdpm 

drdqm 

drdthetom 

drdxdotm 

drdydotm 

drzdotm 

dxdalm 

dxdblm 

dxdpm 

dxdqm 

dxdthetom 

dxdxdotm 

dxdydotm 

dxdzdot 

dydalm 

dydblm 

dydpm 

dydqm 

dydtbetom 

dydxdotm 

dydydotm 

dydzdotm 

dzdblm 

dzdrm 

dzdthetom 

dzdxdotm 

dzdzdotm 



dM/dXdot 

dM/dYdot 

dM/dZdot 

dN/dr 

dN/dtheta (O) 

dN/dXdot 

dN/dZdot 

dRIdAl 

dR/dBi 

dR/dp 

dR/dq 

dR/dtheta(0) 

dR/dXdot 

dR/dYdot 

dR/dZdot 

dX/dAl 

dXJdBl 

dX/dp 

dX/dq 

dX/dthetaO 

dX/dXdot 

dX/dYdot 

dX/dZdot 

dY/dAl 

dY/dBl 

dY/dp 

dY/dq 

dY/dtheta (0) 

dY/dXdot 

dY/dYdot 

dY/dZdot 

dZ/dbls 

dZ/dr 

dZ/dtheta (O) 
dZ/dXdot 
dZ/dZdc) t 



Tail Rotor Derivatives 



dctsigdlampt 

dctsigdmut 

dctsigdtbetot 

dlampdydott 

dydxdott 

dydydott 

dydpt 

dydrt 

dydthetot 

drdxdott 

drdydott 

drdpt 

drdrt 

drdthetot 

dndxdott 

dndydotit 



d (Ct/sigma) /d (lambda' ) 

d(Ct/sigma) /d(mu) 

d(Ct/sigma) /d(thetaO) 

d ( lambda ' ) /dYdot 

dY/dXdot 

dY/dYdot 

dY/dp 

dY/dr 

dY/d(thetaO) 

dR/dXdot 

dR/dYdot 

dR/dp 

dR/dr 

dR/dthetaO) 

dN/dXdot 

dN/dYdot 
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Vertical Stabilizer Derivatives 



Dalpvdxdotn 

Dalpvdydotn, 

dbetadydotv 

detatvdxdotv 

detatvdydotv 

detafdydotv 

drdxdotv 

drdydotv 

dxdxdotv 

dxdydotv 

dydxdotv 

dydydotv 

dydpv 

dydrv 



d( alpha vert) /dXdot 

d(aipba vert)/dYdot 

d (beta) /dYdot 

d(eta tail rotor) /dXdot 

d(eta tail rotor) /dYdot 

d(eta fuselage) /dYdot 

dR/ dXdot 

dR/ dYdot 

dX/ dXdot 

dX/ dYdot 

dY/ dXdot 

dY/ dYdot 

dY/dp 

dY/dr 



Horizontal Stabilizer Derivatives 



dalphdxdoth 

dalphdzdbldoth 

dalphdzdoth 

detamhdxdoth 

detafhdzdoth 

detamhdzdoth 

dgamdzdoth 

dxdxdoth 

dxdzdbldoth 

dxzdoth 

dzdxdoth 

dzdzdbldoth 

dzdzdoth 



d(alpha horiz) /dXdot 
d(alpha horiz) /dZ double dot 
d( alpha honz)/dZdot 
d(eta main rotor) /dXdot 
d(eta fuse) /dZdot 
d(eta main rotor) /dZdot 
d( gamma) /dZdot 
dX] dXdot 

dX/dZ double dot 

dX/dZdot 

dZ/ dXdot 

dZ/dZ double dot 
dZ/ dZdot 



Fuselage Derivatives 

the following are from the curves In Appendix A of Ref. 2: 



dfdalpf 

dlqdalpf 

drnqdalpf 

dnqdbetaf 

drqdbetaf 

dsfqdbetaf 

dalpfdxdotf 

dalpfdzdotf 

dbetadydotf 

detamfdxdotf 

detamfdzdotf 

dgamndzdotf 

dmdxdotf 

dnidzdotf 

dndydotf 

drdydot f 

dxdxdotf 

dxdzdotf 

dydydotf 



d(D/q) /d (alpha fuse) 

d(L/q) /d (alpha fuse) 

d (M/q) /d (alpha fuse) 

d(N/q) /d (beta) 

d(RJq) /d(beta) 

d(Y/q) /d(beta) 

d(alpha fuse) /dXdot 

d(alpha fuse) /dZdot 

d(beta) /dYdot 

d(eta) M/dXdot 

d (eta) M/dZdot 

d( gamma) /dZdot 

dM/dXdot 

dM/ dZdot 

dN/ dYdot 

dR/dRdot 

dX/ dXdot 

dX/d7 dot 

dY/ dYdot 
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dzdxdotf 

dxdzdot 



dZ/dXdot 

dZ/dZdot 



Hover Basic Main Rotor Derivatives 



da Ida 

daldb 

daldiaiTip 

daldmu 

dal dp 

daldq 

daldtheto 

dblda 

dbldb 

dbidlamp 

dbldmu 

dbldp 

dbldq 

dbldtheto 

dbetdydot 

dchslgda 

dchsigdb 

dchsigdlamp 

dchsigdmu 

dchsigdtheto 

detsigdlamp 

detsigdmu 

dctsigdtheto 

dcqsigdlamp 

dcqsigdmu 

dcqsigdtheto 

dcysigdb 

dlampdxdot 

dlampdydot 

dlampdzdot 

dmdalsm 

dmudxdot 

drdblsm 



dals/dAl 

dals/dBl 

dais /d( lambda' ) 

dals/dmu 

dais /dp 

dals/dq 

dals/dtheta (o) 

dbls/dAl 

dbls/dB] 

dbls/d( lambda' ) 

dbls/dmu 

dbls/dp 

dbls/dq 

dbls/dtheta (o) 

d (Beta) /dYdot 

d(Ch/sigma) /dais 

d(Ch/sigma) /dbls 

d(Ch/sigma) /d (lambda' ) 

d(Ch/sigma) /dmu 

d(Ch/sigma) /dtheta(o) 

d(Ct/sigma) /d(lambda' ) 

d( ' Ct/sigma) /dmu 

d(Ct/sigma) /dtheta(o) 

d(Cq/sigma) /d(lambda' ) 

d (Cq/sigma) /dmu 

d(Cq/sigma) /dtheta(o) 

d(Cy/sigma) /dbis 

d ( lambda ' ) / dXdot 

d( lambda' ) /dYdot 

d ( lambda ' ) / dZdot 

dM/dals main rotor stiffness 

drnu/dxdot 

dR/dBIs main rotor stiffness 



Rigging - Cockpit Stick Rigging Gains 



dalmddela 

dblmddele 

ddelvddelp 

dphinddelp 

dthetode 

d the t omdde le 

dthetotddelp 



dais/d (delta aileron) 
dbls/d(delta elev) 

rudder deflection per pedal travel 
dphi (notar thruster sleeve angle) /d (pedal) 
dtheta(O.V) /d (collective) 
dthetaOm/d (collective) 

dtheta ( 0 . 7 , tail rotor ) /d (pedaJ tran,el) 



Global Variables 



A_MAT 

B_MAT 

AF_MAIN 

AF_TIP 

AR 



A matrix for linear model 
B matrix for linear model 
Main airfoil in meshed airfoil 
Tip airfoil in meshed airfoil 
Aspect Ratio 



69 



COUNT 

FIX_TPP_VAL 

INTER 

LAMDAT_TRIM 

MAXUM 

MESH_VAL 

MESH_STA 

MINUM 

NAME 

NEW_AUX_VAL 

NEW_r 

NEW_TPP 

NL_TWIST 

NL_TWIST_VAL 

OUT_COUNT 

PICK 

PLOT_VALS 

RADSPC_VAL 

REGIME 



Counter to determine where Performance Input 

Selected value for setting TPP to defined value 

Iteration Interval 

Trim value of lamda prime 

Iteration End Value 

Selected value when airfoil mesh option chosen 

r/R station where mesh occurs 

Iteration Start Value 

Input .mat file name 

Value of auxiliary thrust 

Vector of user defined blade elements 

Value (rads) TPP is set to for compound helo 

User defined twist vector 

Selected value for non linear twist 

Used to enable selection of plot routines 

Iteration Method Choice (1 9)' 

Values chosen for no iteration plot 
elected value for non even blade elements 
Include HIGE Calculations Choice (l=yes, 0=no) 



Structured Variables 



S_H_SC_STAT 

S_MATR_VEC 

S_PERF_INPUT 

S_STAB_INPUT 

S_STAB_INPUT_1 

S_STAB_INPUT_2 

S_USER_INPUT 

S_FIT_TR_INPUT 

S_NOTAR_TR_INPUT 



Graphics handles for Stab/Control status figure 

Matrix/Vector structure 

Perf.m input structure 

S_STAB_INPUT_1 andS_STAB_INPUT_2 

Stab.m input structure for screen 1 

Stab.m input structure for screen 2 

User input structure 

Fan In Tail input structure 

NOTAR input structure 



Graphics Handle Variables 



H_AF_MESH 

H_AL 

H_AL_IT_P# 

H_ANAL 

H_AS 

H_AS_IT_P# 

H_ASPECT 

H_ASPECT_EDIT 

H_BLD_EL 

H_BK 

H_BT 

H_BT_IT_P# 

H_BTR 

H_BTR_IT_P# 

H_checkl 

H_check2 

H_check3 

H_CID 

H_CIM 

H_CNF 

H_datain 



Airfoil Mesh List Box 

Altitude Iteration Radio Button 

Altitude Iteration Plots 

Analysis Figure Window 

Airspeed Iteration Radio Button 

Airspeed Iteration Plots 

Aspect Ratio Static Text Box 

Aspect Ratio Edit Text Box 

Blade Element Menu Handle 

Iteration Method << Back Push Button 

Blade Twist Iteration Radio Button 

Blade Twist Iteration Plots 

Blade Taper Ratio Iteration Radio Button 

Blade Taper Ratio Iteration Plots 

Save Input Data Check box' 

Save Output Data Check box 
Save Matrix & Vector Data Check box 
Change Input Data Radio Button 
Change Iteration Method Radio Button 
Create New Radio Button 
Save Input Data Edit Box 
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H_dataout 

H_DISK 

H_EJANRAD 

H_EREF 

H_FIX_TPP 

H_GO 

H_GW 

H_GW_IT_P# 
H_HIGE 
H_inputf ile 
H_IP 

H_IT_BOX 

H_IT_METH 

H_JAN 

H_LB 

H_LAT 

H_LONG 

H_COL 

H_MEN 

H_MESH 

H_NI 

H_NO_IT_P# 

H_NL_TWIST 

h_opt 

H_OPTIONS 

H_outputf ile 

H_P 

H_PED 

H_POP 

H_PERF_IN 

H_PERF_OUT 

H_PRDA 

H_printin 

H_printout 

H_printvec 

H_PSCA 

H_RBR_IT_P# 

H_RBS_IT_P# 

H_RD 

H_RES 

H_RTB 

H_RUPT 

H_SAC 

H_SOT 

H_SOT_IT_P# 

H_SC_SAVE 

H_SAVE_CON 

H_STAB_IN1 

H_STAB_IN2 

H_STAB_OUT 

H_STATUS 

H_STATUS1 

H_STATUS2 

H_STATUS3 

H_STBY_SCRN 

H_vecdata 

H_vecf ile 



Save Output Data Edit Box 

Horiz. Tail Under Main Rotor Disk Check Box 

Exit JANRAD Radio Button 

Edit/Run Existing File Radio Button 

Set TPP Check Box 

Analyze Push Button 

Gross Weight Iteration Radio Button 

Gross Weight Iteration Plots 

Iteration Parameters HIGE Check box 

Input File Static Text box 

Iteration Parameters figure window 

Iteration Parameters Static Text Box 

Iteration Method figure window 

JANRAD 98 Figure window 

Input File List Box 

Lateral Cyclic InputCheck Box 

Long. Cyclic Input Check Box 

Colective Input Check Box 

JANRAD 98 Options Menu handle 

Mesh Parameters figure window 

No Iteration Radio Button 

No Iteration Plots 

Non linear twist check box 

Performance Output JANRAD Options Menu 

Options Figure Window 

Output File Static Text box 

Performace Radio Button 

Pedal Input Check Box 

Airfoil List Box 

Perfoinnance Input Figure Window 

Performance Output Figure Window 

Perform Rotor Dynamics Radio Button 

Print Input File Check Box 

Print Output File Check Box 

Print Matrix & Vector File Check Box 

Perform Stability and Control Radio Button 

Rotor Radius Iteration plots 

Rotor Speed Iteration plots 

Rotor Dynamics Radio Button 

Resume Push Button 

Return to Beginning Radio Button 

Interrupt Push Button 

Stability and Control Radio Button 

Start of Taper Iteration Radio Button 

Start of Taper Iteration Plots 

Stab/Conrrol Save File Output Figure Window 

Stab/Control Save File Output Confirm Window 

Stab/Control Input Figure page 1 

Stab/Control Input Figure page 2 

Stab/Control output figure window 

Top Analysis Status Static Text Box 

Middle Analysis Status Static Text Box 

Middle Analysis Status Static Text Box 

Bottom Analysis Status Static Text Box 

Stab/Conrol Standby Screen Figure Window 

Save Matrix & Vector Data Edit Box 

Vector File Static Text box 
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H_WORK 

H_WSA 

H_WSA_IT 



Working Directory Edit Box 
Wing Span Area Iteration Radio Button 
P# Wing Span Area Iteration Plots 
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APPENDIX D. MATLAB M-FILES 



1. aboutjanrad.m 

function about_janrad( ) 

% This is the machine-generated representation of a MATLAB object 
% and its children. Note that handle values may change when these 
% objects are re-created. This may cause problems with some callbacks. 

% The command syntax may be supported in the future, but is currently 
% incomplete and subject to change. 

% 

% To re-open this system, just type the name of the m-file at the MATLAB 
% prompt. The M-file and its associtated MAT-file must be on your path. 

% This function generates a screen listing all contributors to the 
JANRAD 
% program. 

% Modi fed for JANRAD 6.0 by LT D.A. Heathorn 
load about_janrad 

a = figure ( 'Units ', 'normalized' , ... 

'Color' ,[0.80.80.8], ... 

'Colormap' ,mat0, ... 

' MenuBar ' , ' none ' , ... 

'Name' , 'About JANRAD 98', ... 

'NiimberTitle' , ' of f ' , ... 

' PointerShapeCData ' , matl , ... 

'Position' , [0.1075 0.13 0.6675 0.77], ... 

'Tag' , 'Figl' ) ; 

b = uicontrol {' Parent ', a, ... 

'Units' , 'normalized' , ... 

'BackgroundColor' , [0.752941 0.752941 0.752941], ... 

'Position' , [0.00749064 0.0194805 0.975655 0.963203], ... 

' Style ' , ' frame ' , ... 

' Tag ' , ' Framel ' ) ; 
b = uicontrol (' Parent ', a, ... 

'Units' , 'normalized' , ... 

'BackgroundColor' , [0.752941 0.752941 0.752941], ... 

'Position' , [0.0299625 0.348485 0.930712 0.316017], ... 

' Style' , ' frame' , ... 

' Tag ' , ' Frame2 ' ) ; 

b = uicontrol (' Parent ', a, ... 

'Units' , 'normalized' , ... 

'BackgroundColor' , [0.752941 0.752941 0.752941], ... 

' FontSize' ,14, ... 

' FontWeight ' , ' bold' , ... 

'Position' , [0.0189125 0.85119 0.959811 0.122024], ... 

' String' , 'Joint Army/Navy Rotorcraft Analysis and Design JANRAD 
98' , ... 

' Style' , ' text ' , ... 

'Tag' , ' StaticTextl ' ) ; 
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b = uicontrol (' Parent a, ... 

'Units' , 'normalized' , ... 

'BackgroundColor' , [0.752941 0.752941 0.752941], ... 

' FontSize ' , 10 , ... 

'FontWeight' , 'bold' , ... 

'Position' , [0.230428 0.743017 0.536189 0.104283], ... 

' String' , 'Naval Postgraduate School Monterey, California', 

' Style ' , ' text' , ... 

' Tag ' , ' StaticText2 ' ) ; 
b = uicontrol (' Parent ', a, ... 

'Units ', 'normalized' , ... 

'BackgroundColor' , [0.752941 0.752941 0.752941], ... 

'FontSize' ,10, ... 

' FontWeight ' , ' demi ' , ... 

'Position' , [0.401773 0.674115 0.192024 0.0595903], ... 

' String' , 'March 1999 ' , ... 

' Style ' , ' text' , ... 

' Tag ' , ' StaticText3 ' ) ; 
b = uicontrol (' Parent ', a, ... 

'Units' , 'normalized' , ... 

'BackgroundColor' , [0.752941 0.752941 0.752941], ... 

'Position' , [0.0355805 0.582251 0.911985 0.0367965], ... 

' String' , 'Version 5.0 Designer: LCDR. William L. Hucke, USCG 

' Style' , ' text' , ... 

' Tag ' , ' StaticText4 ' ) ; 
b = uicontrol (' Parent' , a, ... 

'Units ', 'normalized' , ... 

'BackgroundColor' , [0.752941 0.752941 0.752941], ... 

'Position' , [0.0318352 0.536797 0.913858 0.0411255], ... 

' String' , 'Version 4.0 Designer: LCDR. Chris F. Lapacik, USN' 

' Style' , ' text' , ... 

' Tag ' , ' StaticText4 ' ) ; 
b = uicontrol (' Parent ', a, ... 

'Units' , 'normalized' , ... 

'BackgroundColor' , [0.752941 0.752941 0.752941], ... 

'Position' , [0.0318352 0.443723 0.913858 0.04329], ... 

' String' , 'Version 3.0 Designer: LT. Dave Eccles, USN', ... 

' Style' , ' text' , ... 

' Tag ' , ' StaticText5 ' ) ; 
b = uicontrol (' Parent ', a, ... 

'Units' , 'normalized' , ... 

'BackgroundColor' , [0.752941 0.752941 0.752941], ... 

'Position' , [0.0318352 0.400433 0.913858 0.0411255], ... 

' String' , 'Version 2.0 Designer: LT. Dale Feddersen, USN', .. 

' Style ' , ' text ' , ... 

' Tag ' , ' StaticTextl ' ) ; 
b = uicontrol (' Parent ', a, ... 

'Units' , 'normalized' , ... 

'BackgroundColor' , [0.752941 0.752941 0.752941], ... 

'Position' , [0.0355805 0.491342 0.913858 0.0411255], ... 

' String' , 'Version 3.1 Designer: LT. Dan Hiatt, USN', ... 

' Style ' , ' text ' , ... 

' Tag ' , ' StaticText6 ' ) ; 
b = uicontrol {' Parent' , a, ... 

'Units' , 'normalized' , ... 

'BackgroundColor' , [0 .752941 0.752941 0.752941], ... 
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'Position' , [0.0337079 0.354978 0.913858 0.0411255], ... 

' String' , 'Version 1.0 Designers: MAJ Bob Nicholson, USA & MAJ 

Walter Wirth, USA' , ... 

' Style ' , ' text ' , ... 

' Tag ' , ' StaticText7 ' ) ; 
b = uicontrol (' Parent ', a, ... 

'Units' , 'normalized' , ... 

'BackgroundColor' , [0.752941 0.752941 0.752941], ... 

'HorizontalAlignment ' , ' left ' , ... 

'Position' , [0.0945347 0.148976 0.807976 0.189944], ... 

' String' , mat2 , ... 

' Style ' , ' text ' , ... 

' Tag ' , ' StaticText8 ' ) ; 
b = uicontrol (' Parent ', a, ... 

' Units ' , ' normalized' , ... 

'Callback' , 'close (gcf) ' , ... 

' FontSize' , 14 , ... 

'FontWeight' , 'bold' , ... 

'Position' , [0.408983 0.0505952 0.177305 0.0892857], ... 

' String' , ' OK' , ... 

' Tag ' , ' Pushbuttonl ' ) ; 
b = uicontrol (' Parent ', a, ... 

'Units' , 'normalized' , ... 

'BackgroundColor' , [0.752941 0.752941 0.752941], ... 

'Position' , [0.0318352 0.623377 0.911985 0.0367965], ... 

' String' , 'Version 6.0 Desienger: LT David A. Heathorn, USN' , . 

' Style ' , ' text ' , ... 

' Tag ' , ' StaticText4 ' ) ; 
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2. Bode_plotter 

% Bode_plotter .m 



% M-file called by time_freq_resp_f cn .m to plot Bode Diagrams for 
specified input and output. 

% Created for JANRAD version 6.0 by LT David A. Heathorn 
global Amat Bmat u C 

D=0; 

if u(l)==l 

for j=l : length (C) 
if C(j,j)==l 
figure 

bode (Amat, Bmat(:,l), C(j,:), D) 
if j==l 



Input ' ) 


title ( 'Response of x-velocity (u) to Longitudinal Cyclic 


Input ' ) 


elseif j==2 

title (' Response of z-velocity (w) to Longitudinal Cyclic 


Input ' ) 


elseif j==3 

title ( 'Response of Pitch Rate (q) to Longitudinal Cyclic 




elseif j==4 

title (' Response of Pitch Angle (theta) to Longitudinal 



Cyclic Input') 



Input ' ) 


elseif j==5 

title ( 'Response of y-veloctiy (v) to Longitudinal Cyclic 


Input ' ) 


elseif j==6 

title ( 'Response of Roll Rate (p) to Longitudinal Cyclic 


Input ' ) 


elseif j==7 

title (' Response of Roll Angle (phi) to Longitudinal Cyclic 


Input ' ) 


elseif j==8 

title ( 'Response of Yaw Rate (r) to Longitudinal Cyclic 


Input ' ) 


elseif j==9 

title (' Response of Yaw Angle (psi) to Longitudinal Cyclic 




end 
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end 



end 

elseif u(2)==l 

for j=l : length (C) 

if C(j,j)==l 

figure 

bode(Amat, Bmat(:,2), C(j,:), D) 
if j==l 



title ( ' Response 


of 


x-velocity 


(u) 


to 


Collective 


Input ' 


elseif j==2 

title ( ' Response 


of 


z-velocity 


(w) 


to 


Collective 


Input ' ) 


elseif j==3 

title ( ' Response 


of 


Pitch Rate 


(q) 


to 


Collective 


Input ' ) 



elseif j==4 

title (' Response of Pitch Angle (theta) to Collective Input') 
elseif j==5 

title (' Response of y-veloctiy (v) to Collective Input') 
elseif j==6 

title (' Response of Roll Rate (p) to Collective Input') 
elseif j==7 

title (' Response of Roll Angle (phi) to Collective Input') 
elseif j==8 

title (' Response of Yaw Rate (r) to Collective Input') 
elseif j==9 

title (' Response of Yaw Angle (psi) to Collective Input') 

end 

end 

end 



elseif u(3)==l 

for j=l : length(C) 
if C(j,j)==l 
figure 

bode(Amat, Bmat(:,3), C(j,:), D) 
if j==l 

title (' Response of x-velocity (u) to Lateral Cyclic Input') 
elseif j==2 

title (' Response of z-velocity (w) to Lateral Cyclic Input') 
elseif j==3 

title (' Response of Pitch Rate (q) to Lateral Cyclic Input') 
elseif j==4 
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Input ' ) 



title ( 'Response of Pitch Angle (theta) to Lateral Cyclic 



elseif j==5 

title (' Response of y-veloctiy (v) to Lateral Cyclic Input') 
elseif j==6 

title ( 'Response of Roll Rate (p) to Lateral Cyclic Input') 
elseif j==7 

title (' Response of Roll Angle (phi) to Lateral Cyclic 

Input ' ) 

elseif j==8 

title (' Response of Yaw Rate (r) to Lateral Cyclic Input') 
elseif j==9 

title ( 'Response of Yaw Angle (psi) to Lateral Cyclic Input') 

end 

end 

end 



elseif u(4)==l 

for j=l : length (C) 
if C(j,j)==l 
figure 

bode(Amat, Bruat(:,4), C(j,:), D) 
if j==l 

title ( 'Response of x-velocity (u) to Pedal Input') 
elseif j==2 

title ( 'Response of z-velocity (w) to Pedal Input') 
elseif j==3 

title ( 'Response of Pitch Rate (q) to Pedal Input') 
elseif j==4 

title ( 'Response of Pitch Angle (theta) to Pedal Input') 
elseif j==5 

title ( 'Response of y-veloctiy (v) to Pedal Input') 
elseif j==6 

title (' Response of Roll Rate (p) to Pedal Input') 
elseif j==7 

title ( 'Response of Roll Angle '(phi) to Pedal Input') 
elseif j==8 

title (' Response of Yaw Rate (r) to Pedal Input') 
elseif j==9 

title (' Response of Yaw Angle (psi) to Pedal Input') 
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end 



end 

end 



end 
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3. Cbodygroup 



% Cbodygrp . m 
% CALLED BY Cruise. m 

% Computes the stability derivatives of the fuselage, wing, verticle 
% fin and horizontal stabalizer in cruise flight. 

% 

% 

% Compute the stability derivatives of the fuselage 
% 

% Modified for JANRAD version 6.0 by LT David A. Heathorn 
% 

dgamdzdotf=-l/V; 
dbe tadydo tf=l/V; 

detamfdxdotf =vfvl/ (4*q*pi*R'^2) * ( -dzdxdotm-2 *T/V) ; 
detamfdzdotf =-vfvl/ (4*q*pi*R''2) *dzdzdotm; 
dalpfdxdotf =-detamf dxdotf ; 
dalpfdzdotf=- (detamfdzdotf +dgamdzdotf) ; 

% 

% the folowing are £rom the curves in appendix A of Prouty: 

% and can be modified if necessary 

dfdalpf=-2; 

dlqdalpf=74.5; 

dsfqdbetaf=-220; 

dmqdalpf=1780; 

dmqdalpf_intercept=-175; 

dnqdbetaf=-820 ; 

drqdbetaf=230 ; 

% 

dxdxdotf =-2/V*Afh*q; 

dxdzdotf= (-Afh*q-q*dfdalpf ) *dalpf dzdotf ; 
dydydotf =1/V* (q*dsfqdbetaf-Afh*q) ; 
dzdxdotf= (2/V) *Afh*q; 

dzdzdotf= (-Afh*q-q*dlqdalpf ) *dalpfdzdotf ; 
drdydotf=q*drqdbetaf *dbetadydotf ; 

Mf_bar={ (dmqdalpf*- (im+alphaT) ) +dmqdalpf_intercept ) *q; 
dmdxdotf =q*dmqdalpf *dalpfdxdotf + (2*Mf_bar/V) ; 

dmdzdotf =q* dmqdalpf *dalpf dzdotf ; 
dndydo t f =q * dnqdbe t a f * dbe tadydo t f ; 

% 

% Compute the stability derivatives of the wing 
% 

if wing==l 

dgamdzdo tw= -1/V; 

detamhdxdotw=vwvl/ (4*q*pi*R'^2) * ( -dzdxdotm-2 *T/V) ; 
detamhdzdotw=-vwvl/ (4*q*pi*R"^2) *dzdzdotm; 

detafhdzdotw=detafdalpfw* (1/ (4*q*pi*R^2) *dzdzdotm-dgamdzdotw) ; 
da 1 phdxdo t w= - de t amhdxdo t w ; 

dalphdzdotw=- (detamhdzdotw+detafhdzdotw+dgamdzdotw) ; 
dalphdzdbldotw=-detamhdzdotw*lw/V; 

% 

dxdxdo t w= - 2 * c do w ; 

dxdzdotw=q*Aw*aw* ( (alpw-alplow) * (l-2*aw* (1+deliw) *Aw/pi/bw^2) +alpw- 
iw) * . . . 

dalphdzdotw; 
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dxdzdbldotw=dxdzdotw*dalphdzdbldotw/dalphdzdotw; 
dzdxdotw=2/V*Zw-q*Aw*aw* (1+aw* (1+deliw) *Aw/pi/bw^2* (2* (alpw- 
alplow) * . . . 

(alpw-iw) + (alpw-alplow) ^ 2 ) +cdow) *dalphdxdotw; 
dzdzdotw=-q*Aw*aw(l+aw* (1+deliw) *Aw/pi/bw'^2* (2* (alpw-alplow) * . . . 

(alpw-iw) + (alpw*alplow) '' 2 ) +cdow) *dalphdzdotw; 
dzdzdbl do tw=dzdzdo tw* da Iphdzdbl do tw/ da Iphdzdo tw ; 

% 

dzdqw=dzdzdotw*lw; 

dzdqw=dzdzdotw*lw; 

dmdxdo tw=-dxdxdotw*hw+dz dxdo tw*lw; 
dmdzdotw=-dxdzdotw*hw+dzdzdotw*lw; 
dmdzdbldotw=-dxdzdbldotw*hw+dzdzdbldo tw*lw; 
dmdqw= d zdqw * 1 h ; 

% 

drdrw=q*Aw*bw*bw*aw*alpw/4/V/V/Ixx; 

drdpw=-q*Aw*bw*bw/4/V/V/Ixx*pi* ( 1+3 *ctw/crw) / (6* (1+ctw/crw) ) ; 
else 
% 

% Zero stability derivatives of the wing when no wing is installed 
% 

dxdxdotw=0 ; dxdzdotw=0 ; dxdzdbldotw=0 ; dzdxdotw=0 ; 
dzdzdotw=0 ; dzdzdbldotw=0 ; 
dzdqw=0 ; dzdqw=0 ; dmdxdotw=0 ; dmdzdotw=0 ; 
dmdzdbldotw=0 ; dmdqw=0 ; 
drdrw=0 ; drdpw=0 ; 
end 
% 

% Compute the stability derivatives of the verticle fin 
% 

detafdbeta= . 06 ; % assumed to be .06 because of little study of effect 
dbetadydotv=l/V; 

detatvdxdotv=-l/ (4*qvq*q*Av) * (dydxdott-2*Tt/V) ; 
dalpvdxdotv=detatvdxdo tv; 
detatvdydotv=dydydott/ (4*qvq*q*At) ; 
detafdydotv=detafdbeta*dbetadydotv; 

dalpvdydotv=- (dbetadydotv+detatvdydotv+detafdydotv) ; 

% 

dxdxdotv=0 ; 
dxdydotv=0 ; 

dydxdo t v= 2 / V* Yv+ qvq* q * Av * av * da Ipvdxdo tv ; 
dydydotv=l/ (1-deldv/Yv) * . . . 

(qvq*q*Av*av*dalpvdydotv+deldv* (-2/V+l/Tt*dydydott) ) ; 

% 

dy dp v= dy dy do tv * hv ; 
dy dr v= - dy dy do t v * 1 v ; 
drdxdotv=dydxdotv*hv; 
drdydotv=dydydo tv*hv ; 
drdpv=dydpv*hv ; 
drdrv=dydrv* hv ; 
dndxdo t v= -dydxdo t v * 1 v ; 
dndy do t v= - dy dy do t v * 1 v ; 
dndpv= -dydpv* Iv ; 
dndrv=-dydrv* Iv ; 

% 

dyddelv=q*qvq*Av*clvertmax/delvmax; 

drddelv=dyddelv*hv; 
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dndde 1 v= - dydde 1 V * 1 V ; 

% 

% Compute the stability derivatives of the horizontal stabalizer 
% 

dgamd zdoth=-l/V; 

detamhdxdoth=vhvl/ ( 4*q*pi*R''2 ) * ( -dzdxdotm-2 *T*cos (altpp) /V) ; 
detamhdzdoth=-vhvl/ (4*q*pi*R''2 ) *dzdzdotm; 

detafhdzdoth=detafdalpfh* (1/ { 4*q*pi*R''2 ) *dzdzdotm-dgamdzdoth) ; 
dalphdxdo t h= -de tamhdxdo th ; 

dalphdzdoth=- (detamhdzdoth+detafhdzdoth+dgamdzdoth) ; 
dalphdzdbldoth=-detamhdzdoth*lh/V; 

% 

e t ainh= vh V 1 * V 1 / V ; 
etafh=detafdalpfh*tho; 

Xh= (Lhoriz*sin(tho- (etamh+etafh+gamc) ) -Dhoriz*cos (tho- 
(etafh+etafh+gamc) ) ) ; 

dxdxdoth=2/V*Xh+qhq*q*Ah*ah* { (alph-alploh) * {1- 
2*ah* (1+delih) *Ah/pi/bh''2 ) +alph-ih) * . . . 
dalphdxdoth; 

dxdzdoth=qhq*q*Ah*ah* ( (alph-alploh) * (l-2*ah* (1+delih) *Ah/pi/bh'^2 ) +alph- 
ih) *. . . 

dalphdzdoth; 

dxdzdbldoth=dxdzdoth*dalphdzdbldoth/dalphdzdoth; 

Zh= (-Lhoriz*cos ( tho- (etamh+etafh+gamc) ) -Dhoriz*cos ( tho- 
(etafh+etafh+gamc) ) ) ; 

dzdxdoth= (2/V* (Zh) ) -qhq*q*Ah*ah* ( 1+ah* (1+delih) *Ah/pi/bh'^2* (2* (alph- 
alploh) * . . . 

(alph-ih) + (alph-alploh) '^2 ) +cdoh) *dalphdxdoth; 
dzdzdoth=-abs (-qhq*q*Ah*ah* (1+ah* (1+delih) *Ah/pi/bh'^2* (2* (alph- 
alploh) * . . . 

(alph-ih) + (alph*alploh) '' 2 ) +cdoh) *dalphdzdoth) ; 
dzdzdbldoth=dzdzdoth*dalphdzdbldoth/dalphdzdoth; 

% 

dzdqh=dzdzdoth*lh; 
dzdqh=dzdzdo th* Ih ; 

dmdxdoth=-dxdxdoth*hh+dzdxdoth* Ih ; 
dmdzdoth=-dxdzdoth*hh+dzdzdoth*lh; 
dmdzdbldoth=-dxdzdbldoth*hh+dzdzdbldoth*lh; 
dmdqh= d z dqh * 1 h ; 

% 

% return to CRUISE. M 
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4. Cmrgrp.m 



% Cmgrp . m 

% CALLED BY Cruise. m 

% Computes the basic MR derivatives in cruise flight 

% Computes the stability derivatives of the main rotor in cruise flight. 
% Uses data loaded in the workspace by JANRAD.M and STAB.M 
% 

% Compute the basic mainrotor derivatives. 

% 

% Modified for JANRAD version 6.0 by LT David A. Heathorn 
% 

dmudxdot=l/ohm/R ; 

dlampdxdot= (1/ohm/R) * (-altpp- (sigma/2/mu) * (dctsigdmu-ctsig/mu) ) ; 

dlampdzdot=l/ (ohm*R* ( 1+dctsigdlamp* sigma/2 /mu) ) ; 

dbetdydot=l/V ; 
dchsigda=ctsig+a/8*lamp ; 
dcysigdb=dchsigda ; 

daldq=-16/ (lockno*ohm* (1-e/R) '' 2 * (l-mu*mu/2) ) - . . . 

12*e/R/ (lockno*ohm* (1-e/R) '"S* ( l-mu"^4/4) ) ; 

daldp=l/ (ohm* (l-mu"2/2) ) -192 *e/R/ ( lockno^2*ohm* ( 1-e/R) '"S* (l-mu^4/4) ) ; 
dalda=12*e/R* (l+mu''2/2) / (lockno* (1-e/R) ''S* (l-mu''4/4) ) ; 
daldb=-l* (l+3/2*mu^2) / (l-mu'^2/2) ; 

dbldq=-inv(ohm* (l+mu"2/2) ) +192*e/R/ ( lockno^2 *ohm* (1-e/R) ^5* (l-mu'^4/4) ) ; 

dbldp=-16/ (lockno*ohm* (1-e/R) '' 2 * (l+mu*mu/2) ) - . . . 

12*e/R/ (lockno*ohm* (1-e/R) '^B* (l-mu^4/4) ) ; 
dblda=l ; 

dbldb=12*e/R* (l + 3/2*mu''2) / (lockno* ( 1-e/R) ^3 * ( l-mu^4/4 ) ) ; 

dmdalsm=3/4*e/R*Ab*rho*R* (ohm*R) '^2*a/lockno ; 
drdblsm=dmdalsm ; 

% 

% Compute the mainrotor stability derivatives. 

% 

dxdxdotm=- 

rho*Ab* (ohm*R) '' 2 * ( (dchsigdmu+dchsigda*daldmu+ (als+im) *dctsigdmu) . . . 
*dmudxdot+ ( (dchsigdlamp+dchsigda*daldlamp+ (als+im) *dctsigdlamp) *dlampdxd 
ot) ) ; 

dxdydotm=rho*Ab* (ohm*R) '^2*ctsig* (Al-bls) *dbetdydot ; 
dxdzdotm=- 

rho*Ab* (ohm*R) '^ 2 * (dchsigdlamp+ (ctsig*daldlamp) + (als + im) *dctsigdlamp) . . . 
*dlampdzdot ; 

dxdqm=-rho*Ab* (ohm*R) '^2*dchsigda*daldq-dxdxdotm*hm ; 
dxdpm=-rho*Ab* (ohm*R) ''2*dchsigda*daldp-dxdydotm*hm ; 
dxdthetom=-rho*Ab* (ohm*R) ^2* (dchsigdtheto+dchsigda*daldtheto+ . . . 

(als+im) *dctsigdtheto) ; 

dxdalm=-rho*Ab* (ohm*R) ^2*dchsigda*dalda ; 
dxdblm=-rho*Ab* (ohm*R) ^2*dchsigda*daldb ; 

dydxdotm=rho*Ab* (ohm*R) ^ 2 * (dcysigdb*dbldmu+bls*dctsigdmu) *dmudxdot ; 
dydydotm=-rho*Ab* (ohm*R) '^ 2 * (chsig+ctsig* (Bl+als) ) *dbetdydot ; 
dydzdotm=rho*Ab* (ohm*R) ''2*dbldlamp*dcysigdb*dlampdzdot ; 
dydqm=rho*Ab* (ohm*R) ''2*dcysigdb*dbldq+dydxdotm*hm ; 
dydpm=rho*Ab* (ohm*R) ^2*dcysigdb*dbldp+dydydotm*hm ; 

dydthetom=rho*Ab* (ohm*R) '' 2 * (dcysigdb*dbldtheto+bls*dctsigdtheto) ; 
dydalm=rho*Ab* (ohm*R) '^2*dcysigdb*dblda ; 
dydblm=rho*Ab* (ohm*R) ''2*dcysigdb*dbldb ; 

dzdxdotm=-rho*Ab* (ohm*R) "^2* (dctsigdmu*dmudxdot+dctsigdlamp*dlampdxdot ) ; 
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dzdzdotm=-rho*Ab* (ohm*R) '^2*dctsigdlamp*dlampdzdot ; 
dzdrm=2/ohm*rho*Ab* (ohm*R) ^2*ctsig ; 
dzdthetom=-rho*Ab* (ohm*R) ^2 *dctsigdtheto ; 

dzdblm=-rho*Ab* (ohm*R) '^2*dctsigdlamp*inv(daldlamp) *daldb ; 
drdxdotm=drdblsm*dbldmu*dmudxdot+dydxdotm*hm+dzdxdotm*ym ; 
drdydotm=-drdblsm* (Bl+als) *dbetdydot+dydydotm*hm ; 
drdzdotm=drdblsm*dbldlainp*dlainpdzdot+dydzdotm*hin+dzdzdotm*ym ; 
drdqm=drdblsm*dbldq+dydqm*hin ; 
drdpm=drdblsm*dbldp+dydpiti*hin ; 

drdthetom=drdblsin*dbldtheto+dydthetom*hin+dzdthetom*ym ; 
drdalm=drdblsm*dblda+dydalm*hin ; 
drdblm=drdblsm*dbldb+dydblm*hiu ; 

dmdxdotm=dmdalsm* {daldmu*dmudxdot+daldlainp*dlainpdxdot ) +dxdxdotm*hm+dzdxd 
otm*lm ; 

dmdydotni=-dxdydotm*hin+dindalsm* (Al-bls) *dbetdydot ; 
dmdzdotm=dmdalsm*daldlamp*dlampdzdot-dxdzdotm*hm+dzdzdotm*lm / 
dmdqm=dmdalsm*daldq-dxdqm*hin ; 
dmdpm=dmdalsm*daldp+dxdpm*hin ; 

dmdthetom=dmdalsm*daldtheto-dxdthetom*hm+dzdthetom*lm ; 
dmdalm=dmdalsm*dalda-dxdalm*hm ; 
dmdblm=dmdalsm*daldb-dxdblin*hin ; 

dndxdotm=rho*Ab* (ohm*R) ^^2*R* {dcqsigdinu*dinudxdot+dcqsigdlamp*dlainpdxdot ) 



dndzdotm=rho*Ab* {ohm*R) ‘^2*R*dcqsigdlamp*dlampdzdot ; 
dndrm=-2/ohin*rho*Ab* (ohm*R) '^2*R*cqsig ; 
dndthetom=rho*Ab* {ohm*R) '"2*R*dcqsigdtheto ; 

% 

% returm to CRUISE. M 
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5 . 



Cruise.ni 



% Cruise. m 
% 

% Computes the stability derivatives in cruise flight. 
% calls the following subroutines 
% 



% Cmrgrp 
% Ctrgrp 
% Cfusegrp 
% Trim 

% Dctplots or Dctmats 
% 



% evaluate basic stability derivatives 
% 

% MAIN ROTOR 

% dctsigdmu dctsigdtheto dctsigdlamp 

% dchsigdmu dchsigdtheto dchsigdlamp 

% dcqsigdmu dcqsigdtheto dcqsigdlamp 

% daldmu daldtheto daldlamp 

% dbldmu dbldtheto dbldlamp 

% 

% TAIL ROTOR 

% dctsigdlampt dctsigdmut dctsigdthetot 
% 



% Modified for JANRAD version 6,0 by LT David A. Heathorn 

global S_SC_INPUT_1 S_SC_INPUT_2 S_PERF_INPUT S_PERF_OUTPUT H_S_SC_STAT 
S_H_SC_STAT Amat Bmat 



% Unstructure input variables 

S_STAB_INPUT_1=S_SC_INPUT_1 ; 
S_STAB_INPUT_2=S_SC_INPUT_2 ; 

unstructure 

uns t rue tur e_s t ab_inpu t_l 
uns t rue tur e_s t ab_inpu t_2 
unstructure2 

H_SC_STAT=S_H_SC_STAT . h_sc_stat ; 
H_STATUS=S_H_SC_STAT . h_s tatus ; 
H_STATUS1=S_H_SC_STAT . h_statusl ; 
H_STATUS2=S_H_SC_STAT . h_status2 ; 
H_STATUS3=S_H_SC_STAT .h_status3 ; 
H_STATUS4=S_H_SC_STAT . h_status4 ; 
H_BK=S_H_SC_STAT . h_bk ; 
H_GO=S_H_SC_STAT . h_go ; 
H_RUPT=S_H_SC_STAT . h_rupt ; 
H_RES=S_H_SC_STAT . h_res ; 
H_MEN=S_H_SC_STAT . h_men ; 



% VARIABLE UNIT CONVERSION 
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k=l; 

im=im/57 . 3 ; 
delta3=delta3/57.3; 
thetalt=thetalt/57 . 3 ; 
alplov=alplov/57 . 3 ; 
alploh=alploh/57 . 3 ; 
ih=ih/57.3; 
alplow=alplow/57 . 3 ; 
iw=iw/57 . 3 ; 
swirl=swirl/57 . 3 ; 
dblmddele=dblmddele/57 . 3 ; 
dalmddela=dalmddela/57 . 3 ; 
dthetomddelc=dthetoinddelc/57 . 3 ; 
dthetotddelp=dthetotddelp/57 . 3 ; 
sidearm=sideann*2 ; 
thetalc=thetalc/57 . 3 ; 
thetals=thetals/57 . 3 ; 
thetao=thetao/57 . 3 ; 
alphaT=alphaT/57 . 3 ; 
betao=betao/57 . 3 ; 



if sidearm==0 
sidearm=le3 ; 

end 

dph indde lp=pi/sidea rm ; 
sidearm=pi/ (sidearm*2) ; 

thetal=-twist ; 

set (H_STATUS2 , ' STRING' , 'CRUISE ROUTINE' ) 

set (H_STATUS 4, 'STRING' , 'FIRST OF THREE PARAMATER VARIATIONS') 
tic 

set (H_STATUS1, 'STRING' , 'START ELAPSED TIME') 
pause { 3 ) 

% vary mu 

set (H_STATUS4 , ' STRING ' , ' VARYING MU ' ) 

stab_calc_mu 

% vary thetao 



set (H_STATUS4 , ' STRING ' , 'VARYING THETAO' ) 
stab_calc_to 
% vary lambda prime 

set (H_STATUS4 , ' STRING ' , ' VARYING LAMDA PRIME ' ) 

stab_calc_la 

% Calculating derivative from vectors. 

set (H_STATUS4 , ' STRING ' , ' COMPUTING DERIVATIVES ' ) 



86 



dctplots 

if tailrot==l 
dctplott 

end 

% CONFIGURATION CALCULATION 

set {H_STATUS4, ' STRING' , 'CALCULATING MATICIES' ) 

unstructure2 
thetalc=thetalc/57 . 3 ; 
thetals=thetals/57 . 3 ; 
thetao=thetao/57 . 3 ; 
thetao=thetao- . 7 * thetal ; 
ctsig=vctsig_mu (1 , 2) ; 
chsig=vchsig_mu (1 , 2) ; 
cqs i g= vcgs i g_mu (1,2) ; 
alphaT=alphaT/57 .3 ; 
al tpp=alphaT ; 

Al=-thetalc; 

Bl=-thetals; 
ao=betao; 
vl=wi_mu (1,2) ; 

V=Vinf; 

sigma=solidity; 

% Main Rotor 
ohm=omega; 
lv=lvd-xcg; 
g=32.2; 

A=pi*R*R; 



hm=hind-zcg; 

yin=ymd-ycg; 

lm=lmd-xcg; 

c= (sum(cblade) /length (r) ) ; 

Ab=c*R*b; 

lamp=vlamp_la (1 , 2 ) ; 
mu=vmu_mu (1,2) ; 
ct=CT; 
f=Afv; 

thetat=4/a*ctsig+sqrt (solidity*ctsig/2) ; 

lockno=rho*a*c*R''4/Ib; 

theta75=thetao+ . 75* thetal; 

als=0 ; 

bls=0; 

m=GW/g; 

Ic=Ixx*Izz; 

lh=lhd-xcg; 

hh=hhd-zcg; 

yh=yhd-ycg; 

hv=hvd-zcg; 

yv=yvd-ycg; 

delvmax=pi/4 ; %est max verticle fin defl before stall 
if maxr==0 
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ddelvddelp=0 ; 
else 

ddelvddelp=delvmax/maxr ; % verticle fin def lection/maxr 

end 

if tailrot==3; 

% NOTAR 

vlmax=l . 2 *vl ; % downwash at the boom slots (NOTAR) 

ltn=lttnd-xcg; 

ln=ltnd-xcg; 

yn=y tnd-xcg ; 

hn=htnd-zcg; 

htn=hn; 

Tt= (cqsig*solidity*rho*A* (ohm*R) ''2*R-Lvert*lv) /Itn; 
cmun=.55; % a typical value 

bn=. 5*R; 

hslot= . 028*dian/2 ; 
arn=bn/dian; 

At=pi*dian*dian/4; 

Rt=dian/2 ; 

end 

if Swing< . 1 
wing=0 ; 
else 

Aw= Swing ; 
lw=lwd-xcg; 
hw=hwd-zcg; 
yw=ywd-ycg ; 
alpw=CLwing / aw ; 
deliw=ewing; 

Zw=Lwing; 
bw=bwing; 
cdow=CDowing ; 
wing=l ; 

end 

Av=Svert ; 

bv=bvert ; 

Ah=Shoriz ; 

bh=bhoriz; 

cdov=CDovert ; 

cdoh=CDohoriz; 

deliv=ewing; 

delih=ewing; 

a lph=CLhor i z / ah ; 

Zh=Lhoriz; 

Yv=Lvert ; 

if Yv<.l;Yv=.l;end; 

deldv=1.72* (1-bv/ (20+Rt) ) * (2*Yv/ (2*Rt+bv) } ; 



% trim conditions 
tho=0 ; 
pho=0 ; 
vo=0 ; 

uo=Vinf *cos ( tho) ; 
wo=uo*tan(tho) ; 
gamc=0 ; 
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% STABILITY CALCULATION 



Cmrgrp 

Ctrgrp 

Cbodygrp 

% computation of A,B,C,D matrices 

All= (dxdxdotm+dxdxdoth+dxdxdotv+dxdxdotf +dxdxdotw) /m; 

A12= (dxdzdotm+dxdzdoth+dxdzdotf +dxdzdotw) /m; 

A13= (dxdqm) /m-wo ; 

A14= -g*cos(tho); 

A15= (dxdydotm+dxdydotv) /m; 

A16= dxdpm/m; 

A17= 0; 

A18= 0; 

% 

A21= (dzdxdotm+dzdxdoth+dzdxdotf +dzdxdotw) /m; 

A22= (dzdzdotm+dzdzdoth+dzdzdotf +dzdzdotw) /m; 

A23= (dzdqh+dzdqw) /m+uo; 

A24= -g*cos (pho) *sin(tho) ; 

A25= 0; 

A26= 0; 

A27= -g*sin (pho) *cos (tho) ; 

A28= dzdrm/m; 

% 

A31= (dmdxdotm+dmdxdoth+dmdxdotf+dmdxdotw) /lyy; 

A32= (dmdzdotm+dmdzdoth+dmdzdotf+dmdzdotw) /lyy; 

A3 3= (dmdqm+dmdqh+dmdqw) /lyy; 

A3 4= 0; 

A3 5 = dmdy do tm/ lyy ; 

A36= (dmdpm)/Iyy; 

A3 7= 0; 

A3 8= 0; 

% 

A41= 0; 

A42= 0; 

A43= cos (pho); 

A44= 0; 

A45= 0; 

A46= 0; 

A47= 0; 

A48= -sin (pho) ; 

% 

A51= (dydxdotm+dydxdott+dydxdotn+dydxdotv) /m; 

A52= (dydzdotm+dydzdotn) /m; 

A53= dydqm/m; 

A54= -g*sin(pho) *sin(tho) ; 

A55= (dydydotm+dydydott+dydydotn+dydydotv+dydydotf.) /m; 

A5 6 = ( dydpm+dydpt +dydpn+dydpv ) /m+wo ; 

A57= g*cos (pho) *cos ( tho) ; 

A58= (dydrt+dydrn+dydrv) /m-uo ; 

% 

A61= (Izz* (drdxdotm+drdxdott+drdxdotn+drdxdotv) . . . 

+Ixz* (dndxdotm+dndxdott+dndxdotn+dndxdotv) ) /Ic; 

A62= ( Izz* (drdzdotm+drdzdotn) +Ixz* (dndzdotm+dndzdotn) )/Ic; 
A63= (Izz* (drdqm) +Ixz* (0) ) /Ic; 
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A64= 0; 

A65= (Izz* (drdydotm+drdydott+drdydotn+drdydotv+drdydotf ) . . . 

+Ixz* (dndydott+dndydotn+dndydotv+dndydotf ) ) /Ic; 

A66= (Izz* (drdpm+drdpt+drdpn+drdpv+drdpw) +Ixz* (dndpt+dndpn+dndpv) ) /Ic; 
A67= 0; 

A68= (Izz* (drdrt+drdrn+drdrv+drdrw) +Ixz* (dndrm+dndrt+dndrn+dndrv) ) /Ic; 



A71= 0; 

A72= 0; 

A73= sin(pho) *tan( tho) ; 

A74= 0; 

A75= 0; 

A76= 1; 

A77= 0; 

A78= cos (pho) *tan ( tho) ; 

% 

A81= (Ixz* (drdxdotm+drdxdott+drdxdotn+drdxdotv) . . . 

+Ixx* (dndxdotm+dndxdott+dndxdotn+dndxdotv) ) /Ic; 

A82= (Ixz* (drdzdotm+drdzdotn) +Ixx* (dndzdotm+dndzdotn) ) /Ic; 

A83= (Ixz* (drdgm) +Ixx* (0) ) /Ic; 

A84= 0; 

A85= (Ixz* (drdydotm+drdydott+drdydotn+drdydotv+drdydotf ) . . . 

+Ixx* (dndydott+dndydotn+dndydotv+dndydotf ) ) /Ic; 

A86= (Ixz* (drdpm+drdpt+drdpn+drdpv+drdpw) +Ixx* (dndpt+dndpn+dndpv) ) /Ic; 
A87= 0; 

A88= (Ixz* (drdrt+drdrv+drdrw) +Ixx* (dndrt+dndrv) ) /Ic; 

% 



% longitudinal plant augmented is X=[u w q theta]' 
Flonaug=[All A12 A13 A14;A21 A22 A23 A24;A31 A32 A33 A34; 

A41 A42 A43 A44] ; 

Plonaug=poly (Flonaug) ; 

Rlonaug=roots (Plonaug) ; 



% lateral plant augmented is X=[v p phi r psi] ' 
Flataug=[A55 A56 A57 A58 0;A65 A66 A67 A68 0; 

A75 A76 A77 A78 0;A85 A86 A87 A88 0;0 0 0 1 0] ; 
Plataug=poly (Flataug) ; 

Rlataug=roots (Plataug) ; 



% coupled plant 

Amat=[All A12 A13 A14 A15 A16 A17 A18 0; 



A21 


A22 


A23 


A24 


A2 5 


A2 6 


A27 


A2 8 


0; 


A31 


A3 2 


A3 3 


A3 4 


A3 5 


A3 6 


A3 7 


A3 8 


0; 


A41 


A42 


A43 


A44 


A45 


A46 


A47 


A48 


0; 


A51 


A52 


A53 


A54 


A55 


A56 


A57 


A58 


0; 


A61 


A62 


A63 


A64 


A65 


A66 


A67 


A68 


0; 


A71 


A72 


A73 


A74 


A75 


A76 


All 


A78 


0; 


A81 


A82 


A83 


A84 


A85 


A86 


A87 


A88 


0; 


0 0 


0 0 


0 0 


0 1 


0]; 











Pcoup=poly (Amat) ; 

Rcoup=roots (Pcoup) ; 

% 

Bll= dxdblm*dblmddele/m; 

B12= dxdthetom*dthetomddelc/m; 
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B13= dxdalm*dalmddela/m; 

B14= 0; 

% 

B21= dzdblm*dblinddele/m; 

B22= dzdthetom*dthetomddelc/m; 

B23= 0; 

B24= 0; 

% 

B31= dmdblm*dblmddele/Iyy ; 

B32= dmdthetom*dthetoinddelc/Iyy ; 

B33= dmdalm*dalmddela/Iyy ; 

B34= 0; 

% 

B41= 0; 

B42= 0; 

B43= 0; 

B44= 0; 

% 

B51= dydblm*dblmddele/m; 

B52= dydthetom*dthetomddelc/in; 

B53= dydalm*dalmddeld/m; 

B54= ( (dydphin*dphinddelp+dyddelv*ddelvddelp+dydthetot*dthetotddelp) /m) ; 
% 

B61= Izz*drdblm*dblinddele/Ic ; 

B62= (Izz*drdthetom*dthetomddelc+Ixz*dndthetom*dthetomddelc) /Ic; 

B63= Izz*drdalm*dalmddela/Ic; 

B64= 

( (Izz* (drdphin*dphinddelp+drddelv*ddelvddelp+drdthetot*dthetotddelp) +. . . 

Ixz* (dndphin*dphinddelp+dnddelv*ddelvddelp+dndthetot*dthetotddelp) ) /Ic) ; 
% 

B71= 0; 

B72= 0; 

B73= 0; 

B74= 0; 

% 

B81= Ixz*drdblm*dblmddele/Ic; 

B82= (Ixz*drdthetom*dthetomddelc+ixx*dndthetom*dthetomddelc) /Ic ; 

B83= Ixz*drdalm*dalmddela/Ic ; 

B84= 

( (Ixz* (drdphin*dphinddelp+drddelv*ddelvddelp+drdthetot*dthetotddelp) + . . . 

Ixx* (dndphin*dphinddelp+dnddelv*ddelvddelp+dndthetot*dthetotddelp) ) /Ic) ; 
% 

Glonaug=[Bll B12 B13 B14; 

B21 B22 B23 B24; 

B31 B32 B33 B34; 

B41 B42 B43 B44] ; 

Glataug=[B51 B52 B53 B54; 

B61 B62 B63 B64; 

B71 B72 B73 B74; 

B81 B82 B83 B84; 

0 0 0 0 ] ; 

% coupled input matrix 

Bmat=[Bll B12 B13 B14;B21 B22 B23 B24; 

B31 B32 B33 B34;B41 B42 B43 B44; 

B51 B52 B53 B54;B61 B62 B63 B64; 
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B71 B72 B73 B74;B81 B82 B83 B84;0 000] 



% 

xcouple=12/lockno*e/R/ (l+e/3/R) ; 

% designed damping 
de s dmdq= dmdqm+ dmdqh + dmdqw ; 
desdrdp=drdpm+drdpt+drdpw+drdpv+drdpn; 
de s dndr = dndrm+ dndr t + dndr v+ dndr n ; 

% cooper harper pilot rating 
prpitch=desdmdq/Iyy; 
prroll=desdrdp/Ixx; 
p ry aw= de s dndr / 1 z z ; 

% control power 
cppitch=B31*Iyy; 
cproll=B63*Ixx; 
cpyaw=B84*Izz; 
cpipitch=B31 ; 
cpiroll=B63 ; 
cpiyaw=B84 ; 

% 

save mat_temp Amat Bmat 
stab_out_l 
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6. Ctrgrp.m 



% ctrgrp.m 

% CALLED BY Cruise. m 

% Computes the stability derivatives of the tail rotor in cruise flight. 
% Computes the stability derivatives of the NOTAR in cruise flight. 

% Uses data loaded in the workspace by JANRAD.M and STAB.M. 

% 

% Modified for JANRAD version 6.0 by LT David A. Heathorn 
% 

if tailrot==l 

% Compute the stability derivatives of the tail rotor in cruise 
flight . 

dlampdydott=-l/ ( (ohmt*Rt) * ( l+dctsigdlampt*sigmat/ (2*mut) ) ) ; 
dydxdott=rho*Abt* (ohmt*Rt) ''2*dctsigdmut*dmudxdot; 
dydydott=rho*Abt* (ohmt*Rt) ^2*dctsigdlampt*dlampdydott ; 
dydpt =dydydot t * ht ; 
dydrt=-dydydott*lt ; 

dydthetot=rho*Abt* (ohmt*Rt) '^2*dctsigdthetot; 

drdxdott=dydxdott*ht ; 

dr dydo 1 1 =dydydo 1 1 * ht ; 

drdpt=dydpt*ht ; 

drdrt=dydrt*ht ; 

drdthetot=dydthetot*ht ; 

dndxdott=-dydxdott*lt ; 

dndy do 1 1 = - dy dy do 1 1 * 1 1 ; 

dndpt = -dydpt * 1 1 ; 

dndr t = -dy dr t * 1 1 ; 

dndthetot=dydthetot*lt* (-1) ; 

% 

% If tail rotor is to be used, zero out NOTAR derivatives: 

% 

dydxdotn=0 ; dydydotn=0 ; dydzdotn=0 ; dydpn=0 ; dydrn=0 ; drdxdotn=0 ; 
drdydotn=0 ; drdzdotn=0 ; drdpn=0 ; drdrn=0 ; dndx;dotn=0 ; dndydotn=0 ; 
dndzdotn=0 ; dndpn=0 ; dndrn=0 ; 
dndphin=0 ; drdphin=0 ; dydphin=0 ; 
dnddelv=0 ; drddelv=0 ; dyddelv=0 ; 

elseif tailrot==3 

% 

% Compute the stability derivatives of the NOTAR in cruise flight. 

% 

qvin= . 5*rho*vlmax^2 ; 
dydxdotn=0 ; 

dydcsoar=qvin*bn^2*max ( [ (-V/125 + 1) ,0] ) ; 

% downwash blown off circulation control section above 125 ft /sec (75 
kts) 

dcsoardcloar=l ; 
dcloardpslot=2/pi ; 

dpslotdcmu=dian/ (2*bn) *sqrt (cmun*dian/ (2*hslot) )*1.5; 

dcmudvimax=-64*hslot / (dian*vlmax) ; 

dvimaxdzdot=l ; 

dcsoardswirl=-l/pi; 

dswirldydot=l/vl ; 
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dydydotn=dydcsoar*dcsoardswirl*dswirldydot ; 



dydzdotn=dydcsoar*dcsoardcloar*dcloardpslot*dpslotdcmu*dcmudvimax*dvimax 
dzdot ; 

dydpn= dy dy do tn * hn ; 
dydrn= -dydydotn* In ; 
drdxdotn=dydxdo tn *hn ; 
drdydo tn = dy dydo t n * hn ; 
drdzdotn=dydzdo tn * In ; 
drdpn=dydpn*hn ; 
drdrn=dydrn*hn; 
dndxdo t n= - dy dxdo t n * 1 n ; 
dndydo t n= - dydy do t n * In ; 
dndzdotn=-dydzdotn*ln; 
dndpn= -dydpn * In ; 
dndr n= -dydrn*ln; 
dydphin=Ytmaxn/ (pi/2) ; 
dr dph i n= dydphi n * h tn ; 
dndph i n= - dy dph i n * 1 tn ; 

% 

% If NOTAR is to be used, zero out tail rotor derivatives: 

% 

dydxdott=0 ; dydydott=0 ; dydpt=0 ; dydrt=0 ; dydthetot=0 ; drdxdott=0 ; 
drdydott=0 ; drdpt=0 ; drdrt=0 ; drdthetot=0 ; dndxdott=0 ; dndydott=0 ; 
dndpt=0 ; dndrt=0 ; dndthetot=0 ; 

mut=0 ; lampt=0 ;aot=0 ;blst=0 ; alst=0 ; locknot=0 ; 
drdthetot=0 ; dndthetot=0 ; dydthetot=0 ; 



disp{' ') 

disp{ ' Press any key to continue. . . ' ) 
pause 

end 

% 

% return to CRUISE. M 



else 



disp{' ') 



disp { ' 
disp { ' 
disp { ' 



ERROR IN CTRGRP.M') 

NO TAIL ROTOR OR NOTAR INSTALLED' } 
CHECK INPUT DATA' } 
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7. Dctplots.m 

% Dctplots.m 



% 

% plots ct/sigma, ch/sigma, cq/sigma, als and bis 
% VERSES 

% mu, thetao and lamp 

% fits a polynomial to the curve, takes a derivative of the curves 
% then evaluates the appropriate parameters for CRUISE. M 
% 

% d(ct/sigma) , d (ch/sigma) , d(cq/sigma), dais and dbls 
% VERSES 

% dmu, dthetao and dlamp 

% uses the pertubation points from CRANK. M about nominal 
% 

% polyfitting data to obtain plots for n=l 

% Modified for JANRAD version 6.0 by LT. David A. Heathorn 
n=l ; 

ectsigmu=polyf it (vmu_mu, vctsig_mu,n) ; 
ectsigtheto=polyf it (vthetao_to, vctsig_to,n) ; 
ectsiglamp=polyf it (vlamp_la, vctsig_la,n) ; 

% 

echsigmu=polyf it (vmu_mu, vchsig_mu, n) ; 
echsigtheto=polyf it (vthetao_to , vchsig_tb , n) ; 
echsiglamp=polyf it (vlamp_la, vchsig_la,n) ; 

% 

ecqsigmu=polyf it (vmu_mu , vcqsig_mu , n) ; 
ecqsigtheto=polyf it (vthetao_to, vcqsig_to, n) ; 
ecqsiglamp=polyf it (vlamp_la, vcqsig_la,n) ; 

% 

ealsmu=polyf it (vmu_mu , vals_mu , n) ; 
ealstheto=polyf it (vthetao_to, vals_to,n) ; 
ealslamp=polyf it (vlamp_la, vals_la,n) ; 

% 

ebl smu=po ly f i t ( vmu_mu , vbl s_mu , n ) ; 
eblstheto=polyfit (vthetao_to, vbls_to, n) ; 
eblslamp=polyf it (vlamp_la, vbls_la, n) ; 

% 

%taking derivatives 
% 

edctsigdmu=derivl (ectsigmu) ; 
edctsigdtheto=derivl (ectsigtheto) ; 
edctsigdlamp=derivl (ectsiglamp) ; 

% 

edchsigdmu=derivl (echsigmu) ; 
edchsigdtheto=derivl (echsigtheto) ; 
edchsigdlamp=derivl (echsiglamp) ; 

% 

edcqsigdmu=derivl (ecqsigmu) ; 
edcqsigdtheto=derivl (ecqsigtheto) ; 
edcqsigdlamp=derivl (ecqsiglamp) ; 

% 

edalsdmu=derivl (ealsmu) ; 
edalsdtheto=derivl (ealstheto) ; 
edalsdlamp=derivl (ealslamp) ; 
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% 

edblsdmu=derivl (eblsmu) ; 
edblsdtheto=derivl (eblstheto) ; 
edblsdlamp=derivl (eblslamp) ; 

% 

% evaluating derivatives 
% 

dctsigdmu=polyval (edctsigdmu, vmu_mu (1,2) ) 
dctsigdtheto=polyval (edctsigdtheto, vthetao_to (1 , 2) ) 
dctsigdlaiup=polyval (edctsigdlamp, vlamp_la (1,2) ) 

% 

dchsigdmu=polyval (edchsigdmu, vmu_mu (1,2) ) 
dchsigdtheto=polyval (edchsigdtheto, vthetao_to (1, 2) ) 
dchsigdlaiup=polyval (edchsigdlamp, vlainp_la (1,2) ) 

% 

dcqsigdmu=polyval (edcqsigdmu, vmu_mu (1,2) ) 
dcqsigdtheto=polyval (edcqsigdtheto, vthetao_to (1, 2) ) 
dcqsigdlamp=polyval (edcqsigdlamp, vlamp_la (1,2) ) 

% 

daldmu=polyval (edalsdmu, vmu_mu (1 , 2 ) ) ; 
daldtheto=polyval (edalsdtheto, vthetao_to (1, 2) ) ; 

% Due to poor modeling of flapping find daldlamp by dif erintiating 
equation (8) from 

% Gessow and Myers "Aerodynamics of Helicopters" pg 186 eq(8) and assume 
the change 

% in flapping is the same as the change in the tip path plane. 

alnuml= ( 1 / vmu_mu (1,2) ) ; 

alnum2= ( vctsig_mu (1,2) /solidity/- 

4 /vmu_mu (1,2))* ( vmu_mu (1,2) ^^2 +vlamp_la ( 1 , 2 ) ^^2 ) '^ ( -3 /2 ) ; 
alnum2=2*-vlamp_la (1 , 2 ) *alnum2 ; 

alnum3= (solidity*dctsigdlamp/2/vmu_mu (1 , 2 ) ) * (vmu_mu (1, 2 ) '^2+vlamp_la (1,2) 
''2)'^(-l/2) ; 

daldlamp=alniiml+alnum2+alnum3 ; 



dbldmu=polyval (edblsdmu , vmu_mu (1,2) ) ; 
dbldtheto=polyval (edblsdtheto, vthetao_to (1, 2) ) ; 
dbldlamp=polyval ( edblsdlamp , vlamp_la (1,2)); 
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8. Dctplott.m 



% Dctplott.m 
% 

% plots ct/sigmat 
% VERSES 

% mut, thetaot and lampt 

% fits a polynomial to the curve, takes a derivative of the curves 
% then evaluates the appropriate parameters for CRUISE. M 
% 

% d(ct/sigma) 

% VERSES 

% dmut, dthetaot and dlampt 

% uses the pertubation points from JANRAD about nominal 
% 

% polyfitting data to obtain plots for n=l 
% Modified for JANRAD version 6.0 by David A. Heathorn 
n=l ; 

ectsigmut=polyf it (vmut , vctsigt_mut , n) ; 
ectsigthetot=polyf it (vthetaot , vctsigt_tot , n) ; 
ectsiglampt=polyf it (vlampt, vctsigt_lat ,n) ; 

% 

%taking derivatives 
% 

edctsigdmut=derivl (ectsigmut) ; 
edctsigdthetot=derivl (ectsigthetot ) ; 
edctsigdlampt=derivl (ectsiglampt) ; 

% 

% evaluating derivatives 
% 

dctsigdmut=polyval (edctsigdmu, vmut (1,2)); 
dctsigdthetot=polyval (edctsigdtheto, vthetaot (1, 2) ) ; 
dctsigdlampt=polyval (edctsigdlamp, vlampt (1, 2) ) ; 
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9 . 



Derivl.m 



% DERI VI. M 

% computes the derivative of a polynomial using first order curve 
% 

% Created for JANRAD version 6.0 by LT David A. Heathorn 

function [deriv] =derivl (polyno) ; 
der= [1 0 ] ; 
d=der . *polyno ; 
deriv=d(l, 1) ; 
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10. Eigen_plotter.m 

% Eigen_ploter .m 

% M-file called by time_f req_resp_f cn.m to plot eigen values of linear 
model . 

% Created for JANRAD version 6.0 by LT David A. Heathorn 
global Amat Bmat C u 



figure 

plot (real (eig (Amat (1:8, 1:8))), imag(eig (Amat (1:8, 1:8))), 'kX', ' mar leer s i ze ' 

, 12 ) 

title ('Eigen Values of Coupled Matrix A') 
xlabel('Real Axis') 
ylabeK'Imag Axis') 
grid 



figure 

plot (real (eig (Amat (1:4, 1:4))), imag(eig (Amat (1:4, 1:4))), 'kX', ' markers ize' 

, 12 ) 

xlabel('Real Axis') 
ylabel('Imag Axis') 

title( 'Eigen Values of Uncoupled Longitudinal Matrix A') 
grid 

figure 

plot (real (eig (Amat (5 : 8, 5 : 8) ) ) , imag(eig (Amat (5 : 8,5:8))),'kX', 'markersize' 

, 12 ) 

xlabel('Real Axis') 
ylabel('Imag Axis') 

title( 'Eigen Values of Uncoupled Lateral Matrix A') 
grid 
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11. Hmrgrp.m 



% Hmrgrp . m 
% CALLED BY Hover. m 

% Computes the basic main rotor derivatives at a hover 
% Computes the stability derivatives of the main rotor at a hover 
% Uses data loaded in the workspace by JANRAD.M and STAB.M 
% 

% Compute the basic mainrotor derivatives at a hover 
% 

% Modified for JANRAD version 6.0 by LT David A. Heathorn 
% 

dmu dxdo t = 1 / ohm / R ; 
dlampdzdot=dmudxdot ; 

daldmu=8/3*thetao+2*thetal-2*vl/ohm/R; 

dbldmu=4/3*ao; 

dctsigdlamp=inv ( 8/a+ (sqrt (sigma/2) / (sqrt (ctsig) ) ) ) ; 
dcqsigdlamp=-a/4* { theta75-2*vl/ohm/R) ; 

daldq=-16/ {lockno*ohm* (1-e/R) '" 2 ) -12*e/R/ (lockno*ohm* (1-e/R) ^^3 ) ; 
dbldp=daldq; 

daldp = l/ohm* (1- (192*e/R/ (lockno'^2* (1-e/R) ) ) ; 

dbldq= -da Idp ; 

dalda=12*e/R/ (lockno* (1-e/R) ^^3) ; 
dbldb=dalda; 

daldb=-l/ (l+( (144* (e/R) ^2) / ( lockno"'2 *( 1-e/R) '' 6 ))) ; 
dblda=-daldb; 

dchsigda=3/2*ctsig* (l-a/18*theta75/ctsig) ; 
dcy s i gdb= dchs i gda ; 

dmdals=3 /4*e/R*Ab*rho*R* (ohm*R) ^2*a/lockno; 
drdbls=dmdals ; 

% 

% Compute the mainrotor stability derivatives at a hover 
% 

dxdxdotm=-rho*Ab* (ohm*R) ''2*dchsigda*daldmu*dmudxdot; 
dxdydotm=-rho*Ab* (ohm*R) ^2*dcysigdb*dbldmu*dmudxdot; 
dxdzdotm= 0 ; 

dxdqm=-rho*Ab* (ohm*R) '^2*dchsigda*daldq; 
dxdpm=-rho*Ab* (ohm*R) ^2*dchsigda*daldp ; 
dxdrm= 0 ; 

dxdthetom=-rho*Ab* (ohm*R) ^ 2 * (als+im) *dctsigdtheto; 

dxdalm=-rho*Ab* (ohm*R) ^2*dchsigda*dalda; 

dxdblm=-rho*Ab* (ohm*R) ''2*dchsigda*daldb; 

dydxdotm=rho*Ab* (ohm*R) "^2 *dcysigdb*dbldmu*dmudxdot ; 

dydydo tm= dxdxdo tm ; 

dydzdotm=0 ; 

dydqm=dxdpm ; 

dydrm=0 ; 

dydpm= - dxdqm ; 

dydthetom=rho*Ab* (ohm*R) '^2* (2*bls) *dctsigdtheto ; 

dyda lm=dxdblm ; 

dydblm=-dxdalm; 

dzdxdotm=0; • 

dzdydotm=0 ; 

dzdzdotm=-rho*Ab* (ohm*R) ''2*dctsigdlamp*dlampdzdot; 
dzdpm=0 ; 
dzdqm=0 ; 
dzdrm=0 ; 
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dzdthetom=-rho*Ab* {ohm*R) '^2*dctsigdtheto; 
dzdblm=0 ; 

drdxdotm=drdbls * dbldmu * dmudxdo t +dydxdo tm*hm+dzdxdo tm*hin ,• 

dr dydo tm= - dmdal s * da 1 dmu * dmudxdo t +dxdxdo tm* hin ; 

drdzdotm=dzdzdotm*ym; 

drdqm=drdbls *dbldq+dydqIn*hIn; 

drdrIn=0 ; 

drdpm=drdbls*dbldp+dydpm*hm; 

drdthetom=dydthetom*hm+dzdthetom*ym; 

drdalm=drdbls*dblda+dydalm*hm; 

drdblm=drdbls*dbldb+dydblm*hin; 

dmdxdo tm= dmda 1 s * da 1 dmu * dmu dxdo t - dxdxdo tm * hm ; 

dmdy do tm= dr dxdo tm ; 

dmdzdotm=dzdzdotm*lm; 

dmdqm=dmdal s * daldq-dxdqm*hm ; 

dmdrm=0 ; 

dmdpm= dmdal s * da 1 dp - dxdpm * hm ; 
dmdthetom=-dxdthetom*hm+dzdthetom* Im; 
dmda lm= dmda 1 s * da 1 da - dxda Im* hm ; 
dmdblm=dmdals *daldb-dxdblm*hm; 
dndxdotm=0 ; 

dndzdotm=rho*Ab* (ohm*R) ''2*R*dcqsigdlamp*dlampdzdot ; 
dndydotm=0 ; 
dndqm=0 ; 
dndpm=0; 

dndrm=-2*rho*Ab* (ohm*R) ''2*R*cqsig; 
dndthetom-rho*Ab* (ohm*R) ^2 *R*dcqsigdtheto; 

% 

% return to HOVER. M 
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12. Hover.m 



% Hover.m 

% CALLED BY STAB.M 

% Computes the stability derivatives at a hover. 

% calls the FOLLOWING subroutines to compute stability derivatives 

% 

% HMRGRP 
% HTRGRP 
% TRIM 
% 

% computation of stability derivatives 

% the only derivatives important at hover are main and tail rotor 
format compact 

% evaluate dctsigdtheto dcqsigdtheto dctsigdthetot and dcqsigdthetot 
% 

% Modified for JANRAD version 6.0 by LT David A. Heathorn 

global S_SC_INPUT_1 S_SC_INPUT_2 S_PERF_INPUT S_PERF_OUTPUT H_S_SC_STAT 
S_H_SC_STAT Amat Bmat 

% Unstructure input variables 

S_STAB_INPUT_1 = S_SC_INPUT_1 ; 

S_STAB_INPUT_2=S_SC_INPUT_2 ; 

unstructure 

unstructure_stab_input_l 

unstructure_stab_input_2 

H_SC_STAT=S_H_SC_STAT . h_sc_stat ; 

H_STATUS=S_H_SC_STAT . h_status ; 

H_STATUS1=S_H_SC_STAT . h_statusl ; 

H_STATUS2=S_H_SC_STAT . h_status2 ; 

H_STATUS3 = S_H_SC_STAT . h_s tatus3 ; 

H_STATUS4=S_H_SC_STAT . h_status4 ; 

H_BK=S_H_SC_STAT . h_bk ; 

H_GO=S_H_SC_STAT . h_go ; 

H_RUPT=S_H_SC_STAT . h_rupt ; 

H_RES=S_H_SC_STAT . h_res ; 

H_MEN=S_H_SC_STAT . h_men ; 



% Turn Stab_on flag on 
STAB_ON=l; 

% VARIABLE UNIT CONVERSION 

im=im/57 . 3 ; 
delta3=delta3/57.3; 
thetalt=thetalt/57 . 3 ; 
alplov=alplov/57 . 3 ; 
alploh=alploh/57 . 3 ; 
ih=ih/57.3; 
alplow=alplow/57 . 3 ; 



102 



iw=iw/57 . 3 ; 
swirl=swirl/57 . 3 ; 
dblmddele=dblmddele/57 .3 ; 
dalmddela=dalmddela/57 . 3 ; 
dthetomddelc=dthetoinddelc/57 .3 ; 
dthetotddelp=dthetotddelp/57 .3 ; 
sidearm=sidearm*2 ; 
if sidearm==0 
sidearin=le3 ; 

end 

dphinddelp=pi/sidearin; 
sidearm=pi/ (sidearm*2) ; 



vctsig=zeros (1,2) ; 
vcqsig=zeros (1,2) ; 
vthetao=zeros (1,2) ; 
vctsigt=ones (1,2) ; 
vcqsigt=ones (1,2) ; 
vthetaot=ones (1,2) ; 

thetal=-twist ; 

GW=GW*1. 0005; % .5% HIGHER 

set (H_STATUS2 , ' STRING ' , ' HOVER ROUTINE ' ) 

set (H_STATUS4, 'STRING' , 'FIRST OF TWO PERTURBATIONS') 

tic 

set (H_STATUS1, 'STRING' , 'START ELAPSED TIME') 
pause (3 ) 

Trim 

% *** Calculation of output parameters from trim *** 

Qrotor=mean (DMpsi) *b; 

solidity=b* (sum(cblade) /length (cblade) ) / (pi*R) ; 
CQ=Qrotor/ (Adisk*rho*Vtip''2*R) ; 

CH=Hrotor/ (Adisk*rho*Vtip'^2) ; 

CH_sig=CH/solidity; 
vctsigd, 2) =CT/solidity; 
vcqsigd, 2) =CQ/solidity ; 
thetasave=thetao ; 

vthetao (1,2) =thetasave- . 7 * thetal ; 

ohm=omega; 

sigma=solidity; 

g=32.174; 

A=pi*R*R; 
if tailrot==l 
Abt=bt*Rt*ct; 

At=pi*Rt*Rt; 
mut=Vinf / ohmt /Rt ; 
sigmat=Abt/At ; 
lt=ltd-xcg; 
ht=htd-zcg; 
yt=ytd-ycg; 

locknot=rho*at*ct*Rt'^4/Ibt ; 

Tt=Qrotor/lt; 

ctsigt=Tt/ (rho*At* (ohmt*Rt) ''2) ; 
vlt=sqrt (Tt/2/rho/At) ; 

1 amp t = -V 1 t / ohmt / Rt ; 

aot=2/3*locknot*ctsigt/at-3 /2*g*Rt'^2/ (ohmt*Rt) '^2; 
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thetaot=3/2* {4/at*ctsigt+sqrt (CQ/2) ) -3/4*thetalt ; 

alst=0 ; 

blst=0; 

theta75t=thetaot+ . 75*thetalt ; 
vlt=sqrt (Tt/2/rho/At ) ; 
aoat=theta75t+atan (vlt/ohmt/Rt/ . 7 ) ; 
cdt= .006+ (aoat*at) '^2/pi/Rt/ct ; 
phit=sqrt (ctsigt*sigmat/2) ; 
thet=4/at*ctsigt+sqrt (phit ) ; 

cqsigt=sigmat/2* (at/2* { thet-phit ) *phit+cdt/4) ; 



vctsigt (1,2) =ctsigt ; 
vcqs igt (1,2) =cqs igt ; 
vthetaot (1,2) =thetaot ; 

end 

save stabtemp vctsig vcqsig vthetao thetal vctsigt vcqsigt vthetaot g. . . 
S_SC_INPUT_1 S_SC_INPUT_2 S_PERF_INPUT S_PERF_OUTPUT H_S_SC_STAT 
S_H_SC_STAT 

clear 

load stabtemp 

S_STAB_INPUT_1=S_SC_INPUT_1 ; 

S_STAB_INPUT_2=S_SC_INPUT_2 ; 

unstructure 

unstructure_stab_input_l 

unstructure_stab_input_2 

H_SC_STAT=S_H_SC_STAT . h_sc_stat ; 

H_STATUS=S_H_SC_STAT . h_status ; 

H_STATUS1=S_H_SC_STAT , h_statusl ; 

H_STATUS2=S_H_SC_STAT . h_status2 ; 

H_STATUS3=S_H_SC_STAT . h_status3 ; 

H_STATUS4=S_H_SC_STAT . h_status4 ; 

H_BK=S_H_SC_STAT . h_b)c ; 

H_GO=S_H_SC_STAT . h_go ; 

H_RUPT=S_H_SC_STAT . h_rupt ; 

H_RES=S_H_SC_STAT.h_res ; 

H_MEN=S_H_SC_STAT . h_men ; 



% Turn Stab_on flag on 
STAB_ON=l; 

% VARIABLE UNIT CONVERSION 

im=im/57 . 3 ; 
delta3=delta3/57.3; 
thetalt=thetalt/57 . 3 ; 
alplov=alplov/57 . 3 ; 
alploh=alploh/57.3; 
ih=ih/57 .3; 
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alplow=alplow/57 . 3 ; 
iw=iw/57 . 3 ; 
swirl=swirl/57 . 3 ; 
dblmddele=dblmddele/57 .3 ; 
dalmddela=dalmddela/57 . 3 ; 
dthetomddelc=dthetomddelc/57 . 3 ; 
dthetotddelp=dthetotddelp/57 . 3 ; 
sidearm=sidearm*2 ; 
if sidearm==0 
sidearm=le3 ; 

end 

dphinddelp=pi/sidearm; 
sidearm=pi/ (sidearm*2) ; 

set (H_STATUS4, 'STRINGS 'SECOND OF TWO TRIM PERTURBATIONS') 
set (H_STATUS1 , ' STRING ' , [ ' RUN ELAPSED TIME IS ' , fix (nuiti2str ( toe ) ) , ' 
SECONDS ' ] ) 
pause (3 ) 

Trim 

set (H_STATUS4, 'STRING' , 'PERTURBATIONS COMPLETE - EVALUATING STABILITY 
DERIVATIVES ' ) 

set (H_STATUS1 , ' STRING ' , [ ' RUN ELAPSED TIME IS ' , fix (num2str ( toe ) ) , ' 
SECONDS ' ] ) 
pause (3 ) 

Qrotor=mean (DMpsi) *b; 

solidity=b* (sum(eblade) /length (eblade) ) / (pi*R) ; 

CQ=Qrotor/ (Adisk*rho*Vtip''2*R) ; 

CH=Hrotor/ (Adisk*rho*Vtip'^2 ) ; 
vetsigd, 1) =CT/solidity ; 
veqsig (1,1) =CQ/solidity ; 
thetasave= thetao ; 

vthetao (1,1) =thetasave- . 7 *thetal ; 

detsigdtheto= ( vetsig (1,1) -vetsig (1,2) ) / (vthetao (1 , 1) -vthetao (1,2)); 
deqsigdtheto= (veqsig (1, 1) -veqsig ( 1 , 2) ) / (vthetao (1 , 1) -vthetao ( 1 , 2 ) ) ; 
ohm= omega ; 
sigma=solidity; 

A=pi*R*R; 
if tailrot==l 
Abt=bt*Rt*et; 

At=pi*Rt*Rt; 
mut=Vinf /ohmt /Rt ; 
sigmat=Abt /At ; 
lt=ltd-xeg; 
ht=htd-zeg; 
yt=ytd-yeg; 

loeknot=rho*at*et*Rt''4/Ibt ; 

Tt=Qrotor/lt; 

etsigt=Tt/ (rho*At* (ohmt*Rt) '' 2 ) ; 
vlt=sqrt (Tt/2/rho/At) ; 
lampt=-vlt/ohmt/Rt ; 

aot=2/3*loeknot*etsigt/at-3 / 2*g*Rt'^2/ (ohmt*Rt) ''2 ; 
thetaot=3/2* ( 4/at*etsigt+sqrt (CQ/2) ) -3/4*thetalt; 
alst=0 ; 
blst=0; 

theta75t=thetaot+ . 75*thetalt ; 
vlt=sqrt (Tt/2/rho/At) ; 
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aoat=theta75t+atan ( vlt/ohmt/Rt/ . 7 ) ; 
cdt= .006+ (aoat*at) ''2/pi/Rt/ct ; 
phit=sqrt (ctsigt*sigmat/2) ; 
thet=4/at*ctsigt+sqrt (phit) ; 

cqsigt=sigmat/2* (at/2* (thet-phit) *phit+cdt/4) ; 
vctsigt (1, 1) =ctsigt; 
vcqsigt (1,1) =cqsigt ; 
vthetaot (1,1) =thetaot ; 

dctsigdthetot= (vctsigt (1,2) -vctsigt (1, 1) ) / (vthetaot (1,2)- 
vthetaot (1,1)) ; 

dcqsigdthetot= (vcqsigt (1,2) -vcqsigt (1, 1) ) / (vthetaot (1, 2) - 
vthetaot (1,1)); 
end 

% CONFIGURATION CALCULATIONS 

theta7=thetao; 
thetao=theta7- . 7*thetal ; 
ctsig=CT/ solidity; 
chsig=CH/ solidity; 
cqs ig=CQ/ solidity ; 
altpp=-alphaT; 

Al=-thetalc; 

Bl=-thetals ; 
ao=betao; 
vl=mean ( vi ) ; 

V=Vinf ; 

% Main rotor 
g=32.2; 
hm=hmd-zcg ; 
ym=yind-ycg ; 
lm=lmd-xcg; 

c= (sum(cblade) /length (cblade) ) ; 

Ab=c*R*4 ; 
lamp=0 ; 
mu=0 ; 
ct=CT; 
f=Afv; 

thetat=4/a*ctsig+sqrt ( sigma*ctsig/2 ) ; 
lockno=rho*a*c*R''4/Ib; 
theta75=thetao+ . 75*thetal ; 
numl=thetao* (8/3 + 32/45*mu''3/pi) ; 
num2=thetal* (2+mu''4/12 ) ; 
num3=lainp* (2-mu*mu/2 ) ; 
denl=l+3 / 2*Inu*mu-5*mu''4/24; 
als=Inu* (numl+niim2+num3 ) /denl-Bl; 
bls=als*12/lockno*e/R/ ( l+e/R/3 ) ; 
m=GW/g; 

Ic=Ixx*Izz; 
if tailrot==3; 

% NOTAR 

vlmax=l . 2*vl ; % downwash at the boom slots (NOTAR) 

delvmax=pi/4 ; 
if maxr==0 

ddelvddelp=0 ; 
else 

ddelvddelp=delvmax/maxr ; % verticle fin def lection/maxr 
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end 

ltn=lttnd-xcg; 
ln=ltnd-xcg; 
yn=ytnd-xcg ; 
hn=htnd-zcg; 
htn=hn; 

Tt=cqsig*sigma*rho*A* (ohm*R) '^2*R/ltn 
cmun=.55; % typical value 

bn=.5*R; 

hslot= . 028*dian/2 ; 
arn=bn/dian; 
dthetoddelp = 0; 

end 

% trim conditions 
tho=-T* (im+als) /GW; 
pho=- (T*bls+Tt) /GW; 
wo=0 ; 
vo=0 ; 
uo=0; 

% STABILITY CALCULATION 
% 

Hmrgrp 

Htrgrp 

% 

% computation of A,B,C,D matrices 
% 

All= (dxdxdotm) /m; 

A12= (dxdzdotm) /m; 

A1 3 = ( dxdqm ) /m-wo ; 

A14= -g*cos(tho); 

A15= (dxdydotm) /m; 

A16= (dxdpm)/m; 

A17= 0; 

A18= (dxd3nn) /m+vo; 

% 

A21= (dzdxdotm) /m; 

A22= (dzdzdotm) /m; 

A23= (dzdqm) /m+uo; 

A24= -g*cos (pho) *sin(tho) ; 

A25= (dzdydotm+dzdydott) /m; 

A26= (dzdpm) /m-vo; 

A27= -g*sin (pho) *cos ( tho) ; 

A28= (dzdrm) /m; 

% 

A31= (dmdxdotm) /lyy; 

A3 2= (dmdzdotm) /lyy; 

A33= (dmdqm)/Iyy; 

A3 4= 0; 

A3 5= (dmdydotm+dmdydott+dmdydotn) /lyy; 
A3 6= (dmdpm)/Iyy; 

A37= 0; 

A3 8 = ( dmdrm+dmdr t + dmdrn ) / lyy ; 

% 

A41= 0; 

A42= 0; 

A43= cos (pho); 
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A44= 0; 

A45= 0; 

A46= 0; 

A47= 0; 

A48= -sin(pho); 

% 

A51= (dydxdotm) /m; 

A52= (dydzdotm+dydzdotn) /m; 

A53= (dydqm) /m; 

A54= -g*sin (pho) *sin ( tho) ; 

A55= (dydydotm+dydydott+dydydotn) /m; 

A 5 6 = ( dydpm+ dy dp t + dydpn ) / m+ wo ; 

A57= g*cos (pho) *cos ( tho) ; 

A 5 8 = ( dy drm+ dy dr t + dydr n ) / m-u o ; 

% 

A61= (Izz* (drdxdotm+drdxdotn) +Ixz* (dndxdotm+dndxdotn) ) /Ic; 

A62= (Izz* (drdzdotm+drdzdotn) +Ixz* (dndzdotm+dndzdotn) ) /Ic; 

A63= ( Izz* (drdqm) +Ixz* (dndqm) ) /Ic ; 

A64= 0; 

A65 = 

(Izz* (drdydotm+drdydott+drdydotn) +Ixz* (dndydotm+dndydott+drdydotn) ) /Ic; 
A66= (Izz* (drdpm+drdpt+drdpn) +Ixz* (dndpm+dndpt+dndpn) ) /Ic; 

A67= 0; 

A68= ( Izz* (drdrm+drdrt+drdrn) +Ixz* (dndrm+dndrt+dndrn) )/Ic; 

% 

A71= 0; 

A72= 0; 

A73= sin(pho) *tan(tho) ; 

A74= 0; 

A75= 0; 

A76= 1; 

A77= 0; 

A78= cos (pho) * tan (tho) ; 

% 

A81= (Ixz* (drdxdotm+drdxdotn) +Ixx* (dndxdotm+dndxdotn) ) /Ic; 

A82= (Ixz* (drdzdotm+drdzdotn) +Ixx* (dndzdotm+dndzdotn) ) /Ic; 

A83= (Ixz* (drdqm) +Ixx* (dndqm) ) /Ic; 

A84= 0; 

A85 = 

(Ixz* (drdydotm+drdydott+drdydotn) +Ixx* (dndydotm+dndydott+dndydotn) ) /Ic; 
A86= (Ixz* (drdpm+drdpt+drdpn) +Ixx* (dndpm+dndpt+dndpn) ) /Ic; 

A87= 0; 

A88= (Ixz* (drdrm+drdrt+drdrn) +Ixx* (dndrm+dndrt+dndrn) ) /Ic; 

% 

% longitudinal plant augmented X=[u w q theta] 

Flonaug=[All A12 A13 A14;A21 A22 A23 A24;A31 A32 A33 A34; 

A41 A42 A43 A44] ; 

Plonaug=poly (Flonaug) ; 

Rlonaug=roots ( Plonaug) ; 

% 

% Lateral plant augmented with X=[v p phi r psi] ' 

Flataug=[A55 A56 A57 A58 0;A65 A66 A67 A68 0; 

A75 A76 All A78 0;A85 A86 A87 A88 0;0 0010]; 

Plataug=poly (Flataug) ; 

Rlataug=roots ( Plataug) ; 

% coupled plant 

Amat=[All A12 A13 A14 A15 A16 A17 A18 0; 
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A21 


A22 


A23 


A24 


A2 5 


A2 6 


A27 


A28 


0 


A31 


A3 2 


A33 


A3 4 


A3 5 


A3 6 


A3 7 


A3 8 


0 


A41 


A42 


A43 


A44 


A45 


A46 


A47 


A48 


0 


A51 


A52 


A53 


A54 


A55 


A56 


A57 


A58 


0 


A61 


A62 


A63 


A64 


A65 


A66 


A67 


A68 


0 


A71 


A72 


A73 


A74 


A75 


A7 6 


All 


A78 


0 


A81 


A82 


A83 


A84 


A85 


A86 


A87 


A88 


0 


0 0 


0 0 


0 0 


0 1 


0] ; 











Pcoup=poly (Amat) ; 

Rcoup=roots (Pcoup) ; 

% 

Bll= dxdblm*dblmddele/m; 

B12= dxdthetom*dthetomddelc/m; 

B13= dxdalm*dalmddela/m; 

B14= 0; 

% 

B21= dzdblm*dblmddele/m; 

B22= dzdthetom*dthetomddelc/m; 

B23= 0; 

B24= 0; 

% 

B31= dmdblm*dblmddele/Iyy; 

B32= dmdthetom*dthetomddelc/Iyy ; 

B33= dmdalm*dalmddela/Iyy; 

B34= (dmdphin*dphinddelp+dindthetot*dthetotddelp) /lyy; 

% 

B41= 0; 

B42= 0; 

B43= 0; 

B44= 0; 

% 

B51= dydblm*dblmddele/m; 

B52= dydthetom*dthetomddelc/m; 

B53= dydalm*dalmddela/m; 

B54= (dydphin*dphinddelp+dydthetot*dthetotddelp) /m; 

% 

B61= Izz*drdblm*dblmddele/Ic; 

B62= (Izz*drdthetom*dthetomddelc+Ixz*dndthetom*dthetomddelc) /Ic 
B63= Izz*drdalm*dalmddela/Ic; 

B64= (Izz* (drdphin*dphinddelp+drdthetot*dthetotddelp) + . . . 

Ixz* (dndphin*dphinddelp+dndthetot*dthetotddelp) ) /Ic; 

% 

B71= 0; 

B72= 0; 

B73= 0; 

B74= 0; 

% 

B81= Ixz*drdblm*dblmddele/Ic; 

B82= (Ixz*drdthetom*dthetomddelc+Ixx*dndthetom*dthetomddelc) /Ic 
B83= Ixz*drdalm*dalmddela/Ic; 

B84= (Ixz* (drdphin*dphinddelp+drdthetot*dthetotddelp) +. . . 

Ixx* (dndphin*dphinddelp+dndthetot*dthetotddelp) ) /Ic; 

% 

Glonaug=[Bll B12 B13 B14; 

B21 B22 B23 B24; 

B31 B32 B33 B34; 

B41 B42 B43 B44]; 
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Glataug=[B51 B52 B53 B54; 

B61 B62 B63 B64; 

B71 B72 B73 B74; 

B81 B82 B83 B84; 

0000 ]; 

% coupled input matrix 

Bmat=[Bll B12 B13 B14;B21 B22 B23 B24; 

B31 B32 B33 B34;B41 B42 B43 B44; 

B51 B52 B53 B54;B61 B62 B63 B64; 

B71 B72 B73 B74;B81 B82 B83 B84;0 000]; 

% 

% cross coupling 

xcouple=12/lockno*e/R/ (l+e/3/R) ; 

% designed damping 
de s dmdq= dmdqm ; 
desdrdp=drdpm+drdpt +drdpn ; 
de s dndr = dndrm+ dndr t + dndr n ; 

% now cooper harper pilot rating 
prpitch=desdmdq/Iyy; 
prroll= (drdpm+drdpt+drdpn) /Ixx; 
pry aw=desdndr / 1 z z ; 

% control power 
cppitch=B31*Iyy; 
cproll=B63 *Ixx; 
cpyaw=B84*Izz; 
cpipitch=B31 ; 
cpiroll=B63 ; 
cpiyaw=B84 ; 

% 

thetao=theta7 ; 

save mat_temp Amat Bmat 

stab_out_l 
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13. Htrgrp.m 



% Htrgrp.m 
% CALLED BY Hover.m 

% Computes the basic tail rotor or NOTAR derivatives at a hover 
% Computes the stability derivatives of the tail rotor or NOTAR at a 
hover 
% OR 

% Computes the stability derivatives of the NOTAR at a hover 
% 

% Uses data loaded in the workspace by JANRAD.M and STAB.M 
% 

% Modified for JANRAD version 6.0 by LT David A. Heathorn 
% 

if tailrot==l 



% Compute the basic tail rotor derivatives at a hover. 

% 

dmudxdot t =1 / ohmt /Rt ; 
d 1 ampdy do 1 1 = - dmudxdo 1 1 ; 

daldmut=8/3*thetao+2*thetal-2*vl/ohmt/Rt ; 
dbldmut=4 /3 *aot ; 

dctsigdlampt=inv{8/at+ (sqrt (sigmat/2) / (sqrt (ctsig) ) ) ) ; 

dcqsigdlampt=-at/4* ( theta75t-2*vlt/ohmt/Rt ) ; 

daldqt=0 ; 

dbldpt=0; 

daldpt=0 ; 

dbldqt=0 ; 

daldat=0 ; 

dbldbt=0; 

daldbt=0; 

dbldat=0 ; 

dchsigdat=3/2*ctsig* (l-at/18*theta75t/ctsig) ; 
dcysigdbt=dchsigdat ; 
dmdalst=0; 
drdblst=0 ; 

% 

% Compute the tail rotor stabitity derivatives at a hover 
% 

dydydott=rho*Abt* (ohmt*Rt) '"2*dctsigdlampt*dlampdydott ; 
dy dp t =dydy do 1 1 * h t ; 
dy dr t = - dy dydo tt*lt; 

dydthetot=rho*Abt* (ohmt*Rt) '"2*dctsigdthetot; 

drdydott=dydydott*ht ; 

drdrt=dydrt*ht ; 

drdpt=dydpt*ht ; 

drdthetot=dydthetot *ht ; 

dmdydott=rho*Abt* (ohmt*Rt) ''2*Rt*dcqsigdlampt*dlampdydott ; 
dmdr t = - dmdy do 1 1 * 1 1 ; 

dmdthetot=rho*Abt* (ohmt*Rt) '"2*Rt*dcqsigdthetot; 

dndydot t=-dydydott * 1 1 ; 

dndp t = - dy dp t * 1 1 ; 

dndr t = - dy dr t * 1 1 ; 

dndthetot=-dydtheto t * 1 1 ; 

% 

% If tail rotor is used, zero out NOTAR derivatives: 

% 
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dydxdotn=0 ; dydydotn=0 ; dydzdotn=0 ; dydpn=0 ; dydrn=0 ; 
dzdydott=0; 

drdxdotn=0; drdydotn=0; drdzdotn=0; drdpn=0 ; drdrn=0; 
dmdydo tn= 0 ; dmdrn= 0 ; 

dndxdotn=0 ; dndydotn=0 ; dndzdotn=0 ; dndpn=0 ; dndrn=0 ; 
dmdphin=0 ; drdphin=0 ; dndphin=0 ; dydphin=0 ; 
elseif tailrot==3 

% Compute the NOTAR derivatives at a hover. 

% 

qvin= . 5 *rho*vlmax'^2 ; 
dydxdotn=0; 
dydcsoar=qvin*bn^2 ; 
dcsoardcloar=l ; 
dcloardpslot=2/pi ; 

dpslotdcmu=dian/ (2*bn) *sqrt (cmun*dian/ (2*hslot) )*1.5; 

dcmudvimax=-64*hslot/ (dian*vlmax) ; 

dvimaxdzdot=l ; 

dcsoardswirl=-l/pi ; 

dswirldydot=l / vl ; 

dydydotn=dydcsoar*dcsoardswirl*dswirldydot; 

dydzdotn=dydcsoar*dcsoardcloar*dcloardpslot*dpslotdcmu*dcmudvimax*dvimax 
dzdot ; 

dydpn=dydydotn*hn ; 
dydrn=-dydydotn* In; 
drdxdotn=dydxdotn*hn; 
drdydotn=dydydotn*hn ; 
drdzdotn=dydzdotn* In ; 
drdpn=dydpn*hn; 
drdrn=dydrn*hn; 
dmdydo tn=0 ; 
dmdrn=-dmdydotn* In; 
dndxdotn=-dydxdotn*ln; 
dndy do t n = - dy dy do t n * 1 n ; 
dndzdotn=-dydzdotn*ln; 
dndpn= - dydpn * In ; 
dndrn=-dydrn*ln; 
dydphin=Ytmaxn/ (pi/2) ; 
drdphin=dydphin*htn; 
dmdphin=0 ; 

dndphin=-dydphin*ltn; 

% 

% If NOTAR is to be used, zero out tail rotor derivatives: 

% 

dydydott=0; dydpt=0 ; dydrt=0 ; dydthetot=0 ; drdydott=0 ; 
dzdydott=0; 

drdrt=0 ; drdpt=0 ; drdthetot=0 ; 
dmdydott=0 ; dmdr t=0 ; dmdthetot=0 ; 
dndydott=0 ; dndpt=0 ; dndrt=0 ; dndthetot=0 ; 
lampt=0 ;mut=0 ;aot=0 ;blst=0 ; alst=0 ; locknot=0 ; 
dmdthetot=0 ; dndthetot=0 ; drdthetot=0 ; dydthetot=0 ; 
else 

disp(' ') 

disp ( ' ERROR IN HTRGRP . M ' ) 

disp(' NO TAIL ROTOR OR NOTAR INSTALLED') 

disp(' CHECK INPUT DATA') 
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disp(' ') 

disp(' Press any key to continue...') 
pause 

end 

% 

% return to HOVER. M 
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14. Imp_plotter.m 

% Imp_plotter .m 

% M-file called by time_freq_resp_fcn .m to plot the impulse response 
% for specified input and output. 

% Created for JANRAD version 6.0 by LT David A. Heathorn 
global Amat Bmat u C T_STOP T_INC 



D=0; 

t_start=0 ; 
t_inc=T_INC ; 
t_stop=T_STOP ; 

t=t_star t ; t_inc : t_stop ; 

if u(l)==l 



for j=l : length (C) 
if C(j,j)==l 
figure 

[num, den] =ss2tf (Amat , Bmat ( : , 1) , C ( j , : ) , D) ; 

[y ] =impulse (num, den, t ) ; 
plot (t,y) 

xlabel('time (sec)') 
grid 
if j==l 

title ( 'Response of x-velocity (u) to Longitudinal Cyclic 
Unit Impulse Input') 

ylabel ( 'Velocity (ft/sec)') 
elseif j==2 

title ( 'Response of z-velocity (w) to Longitudinal Cyclic 
Unit Impulse Input') 

ylabel ( 'Velocity (ft/sec)') 
elseif j==3 

title ( 'Response of Pitch Rate (q) to Longitudinal Cyclic 
Unit Impulse Input') 

ylabel (' Pitch Rate (rad/sec)') 
elseif j==4 

title (' Response of Pitch Angle (theta) to Longitudinal 
Cyclic Unit Impulse Input') 

ylabel (' Pitch Angle (rad.)') 
elseif j==5 

title ( 'Response of y-veloctiy (v) to Longitudinal Cyclic 
Unit Impulse Input') 

ylabel ( 'Velocity (ft/sec)') 
elseif j==6 

title ( 'Response of Roll Rate (p) to Longitudinal Cyclic Unit 
Impulse Input ' ) 

ylabel ('Roll Rate (rad/sec) ' ) 
elseif j==7 

title ( 'Response of Roll Angle (phi) to Longitudinal Cyclic 
Unit Impulse Input') 
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ylabel{'Roll Angle (rad)') 
elseif j==8 

title ( 'Response of Yaw Rate (r) to Longitudinal Cyclic Unit 
Impulse Input') 

ylabel('Yaw Rate (rad/sec)') 
elseif j==9 

title ( 'Response of Yaw Angle (psi) to Longitudinal Cyclic 
Unit Impulse Input') 

ylabel('Yaw Angle(rad)') 

end 

end 

end 

elseif u(2)==l 

for j=l : length (C) 
if C(j,j)==l 
figure 

[num, den] =ss2tf (Amat, Bmat ( : , 1) , C ( j , : ) , D) ; 

[y] =impulse (num, den, t) ; 
plot(t,y) 

xlabeK'time (sec)') 
grid 

xlabel('time (sec)') 
if j==l 

title (' Response of x-velocity (u) to Collective Unit Impulse 

Input ' ) 

ylabel ( 'Velocity (ft/sec)') 
elseif j==2 

title ( 'Response of z-velocity (w) to Collective Unit Impulse 

Input ' ) 

ylabel ( 'Velocity (ft/sec)') 
elseif j==3 

title ( 'Response of Pitch Rate (q) to Collective Unit Impulse 

Input' ) 

ylabel (' Pitch Rate (rad/sec)') 
elseif j==4 

title ( 'Response of Pitch Angle (theta) to Collective Unit 
Impulse Input') 

ylabel (' Pitch Angle (rad.)') 
elseif j==5 

title (' Response of y-veloctiy (v) to Collective Unit Impulse 

Input' ) 

ylabel ( 'Velocity (ft/sec)') 
elseif j==6 

title ( 'Response of Roll Rate (p) to Collective Unit Impulse 

Input ' ) 

ylabel ('Roll Rate (rad/sec)') 
elseif j==7 

title ( 'Response of Roll Angle (phi) to Collective Unit 
Impulse Input') 

ylabeK'Roll Angle (rad)') 
elseif j==8 

title ( 'Response of Yaw Rate (r) to Collective Unit Impulse 

Input ' ) 

ylabel ('Yaw Rate (rad/sec)') 
elseif j==9 
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title ( 'Response of Yaw Angle (psi) to Collective Unit 
Impulse Input') 

ylabel('Yaw Angle (rad)') 
end 

end 

end 



elseif u(3) ==1 

for j=l : length (C) 
if C(j,j)==l 
figure 

[num, den] =ss2tf (Amat , Bmat ( : , 1) , C ( j , : ) , D) ; 

[y] =impulse (num, den, t ) ; 
plot (t,y) 

xlabel('time (sec)') 

grid 

if j==l 

title (' Response of x-velocity (u) to Lateral Cyclic Unit 
Impulse Input') 

ylabel ( 'Velocity (ft/sec)') 
elseif j==2 

title (' Response of z-velocity (w) to Lateral Cyclic Unit 
Impulse Input') 

ylabel ( 'Velocity (ft/sec)') 
elseif j==3 

title (' Response of Pitch Rate (q) to Lateral Cyclic Unit 
Impulse Input') 

ylabel (' Pitch Rate (rad/sec)') 
elseif j==4 

title (' Response of Pitch Angle (theta) to Lateral Cyclic 
Unit Impulse Input') 

ylabel (' Pitch Angle (rad.)') 
elseif j==5 

title ( 'Response of y-veloctiy (v) to Lateral Cyclic Unit 
Impulse Input') 

ylabel ( 'Velocity (ft/sec)') 
elseif j==6 

title ( 'Response of Roll Rate (p) to Lateral Cyclic Unit 
Impulse Input') 

ylabel ('Roll Rate (rad/sec)') 
elseif j==7 

title ( 'Response of Roll Angle (phi) to Lateral Cyclic Unit 
Impulse Input') 

ylabel ('Roll Angle (rad)') 
elseif j==8 

title ( 'Response of Yaw Rate (r) to Lateral Cyclic Unit 
Impulse Input') 

ylabel ('Yaw Rate (rad/sec)') 
elseif j==9 

title (' Response of Yaw Angle (psi) to Lateral Cyclic Unit 
Impulse Input') 

ylabel ( 'Yaw Angle (rad) ' ) 

end 

end 

end 
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elseif u(4)==l 

for j=l : length (C) 
if C(j,j)==l 
figure 

[num, den] =ss2tf (Amat , Bmat ( : , 1) , C ( j , : ) , D) ; 

[y] =impulse (num, den, t ) ; 
plot (t,y) 

xlabel ( ' time (sec)') 

grid 

if j==l 

title ( 'Response of x-velocity (u) to Pedal Unit Impulse 

Input' ) 

ylabel ( 'Velocity (ft/sec)') 
elseif j==2 

title ( 'Response of z-velocity (w) to Pedal Unit Impulse 

Input ' ) 

ylabel ( 'Velocity (ft/sec)') 
elseif j==3 

title ( 'Response of Pitch Rate (q) to Pedal Unit Impulse 

Input ' ) 

ylabel (' Pitch Rate (rad/sec)') 
elseif j==4 

title (' Response of Pitch Angle (theta) to Pedal Unit Impulse 

Input ' ) 

ylabel (' Pitch Angle (rad.)') 
elseif j==5 

title ( 'Response of y-veloctiy (v) to Pedal Unit Impulse 

Input ' ) 

ylabel ( 'Velocity (ft/sec)') 
elseif j==6 

title ( 'Response of Roll Rate (p) to Pedal Unit Impulse 

Input ' ) 

ylabel ('Roll Rate (rad/sec)') 
elseif j==7 

title ( 'Response of Roll Angle (phi) to Pedal Unit Impulse 

Input ' ) 

ylabel ('Roll Angle (rad)') 
elseif j==8 

title (' Response of Yaw Rate (r) to Pedal Unit Impulse 

Input ' ) 

ylabel ('Yaw Rate (rad/sec)') 
elseif j==9 

title ( 'Response of Yaw Angle (psi) to Pedal Unit Impulse 

Input ' ) 

ylabel ( 'Yaw Angle (rad) ' ) 
end 

end 

end 



end 
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15. Save_con.m 



function save_con() 

% This is the machine-generated representation of a MATLAB object 
% and its children. Note that handle values may change when these 
% objects are re-created. This may cause problems with some callbacks. 

% The command syntax may be supported in the future, but is currently 
% incomplete and subject to change. 

% 

% To re-open this system, just type the name of the m-file at the MATLAB 
% prompt. The M-file and its associtated MAT-file must be on your path. 

% GUI screen to indicate output files have been saved 

% Created for JANRAD version 6.0 by LT David A. Heathorn 

load save_con 

global H_SAVE_C0N 

H_SAVE_CON = figure( 'Color' , [0.8 0.8 0.8], ... 

'Colormap' ,mat0, ... 

'Name' , 'File Save Confirmation' , ... 

'NumberTitle' , 'off' , ... 

' PointerShapeCData ' , matl , ... 

'Position' , [119 70 435 193], ... 

'Tag' , ' Fig4 ' } ; 

b = uicontrol ( 'Parent' ,H_SAVE_CON, . . . 

'Units ', 'points ' , ... 

'BackgroundColor' , [0.752941 0.752941 0.752941], ... 

' FontSize' , 18 , ... 

'Position' , [65.25 45.75 196.5 60], ... 

' String' ,' Input and Output Files Saved.', ... 

' Style' , ' text' , ... 

' Tag ' , ' StaticTextl ' } ; 

assignin( 'base' , 'H_SAVE_C0N' ,H_SAVE_C0N) ; 
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16. Sc_save.m 



function sc_save ( ) 

% This is the machine-generated representation of a MATLAB object 
% and its children. Note that handle values may change when these 
% objects are re-created. This may cause problems with some callbacks. 

% The command syntax may be supported in the future, but is currently 

% incomplete and subject to change. 

% 

% To re-open this system, just type the name of the m-file at the MATLAB 
% prompt. The M-file and its associtated MAT-file must be on your path. 

% GUI screen to save input and output of Stability and Control Module 

% Written for Janrad version 6.0 by LT David A. Heathorn 

load sc_save 

global H_datainl H_dataoutl H_SC_SAVE 



H_SC_SAVE = figure( 'Color' , [0.8 0.8 0.8], ... 

' Colormap' ,mat0 , ... 

' Name ' , ' Save Input and Output ' , ... 

' NumberTitle' , ' of f ' , ... 

' PointerShapeCData ' ,matl, . . . 

'Position' , [120 342 428 198], ... 

' Tag' , 'Figl ' ) ; 

b = uicontrol (' Parent ' ,H_SC_SAVE, . . . 

' Units ' , ' points ' , ... 

'BackgroundColor' , [0.752941 0.752941 0.752941], ... 

'Position' , [25.5 110.25 138 17.25], ... 

'String' , 'Save all input data as . . . ' , ... 

' Style' , ' text ' , ... 

'Tag' , ' StaticTextl ' ) ; 
b = uicontrol (' Parent ' ,H_SC_SAVE, . . . 

' Units ' , ' points ' , ... 

' BackgroundColor ', [0 . 752941 0.752941 0.752941], ... 

'Position' , [25.5 84.75 138 17.25], ... 

' String' ,' Save all output data as ...', ... 

'Style' , ' text' , ... 

' Tag ' , ' StaticTextl ' ) ; 
b = uicontrol (' Parent ', H_SC_SAVE, ... 

'Units' , 'points' , ... 

'BackgroundColor' , [0.752941 0.752941 0.752941], ... 

' Position' , [254 . 25 111 45 15], ... 

' String' , '_in. mat ' , ... 

' Style' , ' text ' , ... 

' Tag' , ' StaticText2 ' ) ; 
b = uicontrol (' Parent ' ,H_SC_SAVE, . . . 

'Units' , 'points' , ... 

'BackgroundColor' , [0.752941 0.752941 0.752941], ... 

'Position' , [254.25 87 45 15] , ... 

' String' , '_out .mat ' , ... 

' Style' , ' text' , ... 

' Tag ' , ' StaticText2 ' ) ; 

H_datainl = uicontrol (' Parent ', H_SC_SAVE, ... 

'Units' , 'points ' , ... 
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'BackgroundColor ' ,[111], ... 

'Position' , [171 109.5 75 16.5], ... 

' Fontsize ' , 12 , ... 

' Style' , ' edit' , ... 

' String' 

' Callback' , [ . . . 

' set ( gcbo , ' ' String ' ' , get ( gcbo , ' ' String 

'set (H_dataoutl, ' 'String' ' , get (H_datainl, ' 'String' '));,'],... 
' Horiz on tal Alignment ' , 'right' , . . . 

'Tag' , 'EditTextl ' ) ; 

H_dataoutl = uicontrol { 'Parent' ,H_SC_SAVE, . . . 

' Units ' , ' points ' , ... 

'Position' , [172 .5 87 72 15] , ... 

'String' 

' Style' , ' text' , ... 

'HorizontalAlignment ' , 'right' , . . . 

' Tag ' , ' StaticTextl ' ) ; 
b = uicontrol {' Parent ', H_SC_SAVE, ... 

' Units ', 'points ' , ... 

' Fontsize ' , 18 , ... 

'Position' , [25.5 32.25 98.25 29.25], ... 

'String' , 'Save' , ... 

'Callback' , 'sc_save_fcn save' , . . . 

' Tag ' , ' Pushbuttonl ' ) ; 
b = uicontrol {' Parent ', H_SC_SAVE, ... 

'Units ' , 'points ' , ... 

' Fontsize ' , 18 , ... 

'Position' , [201 30 98.25 29.25], ... 

' String' , 'Continue' , ... 

'Callback' , ' sc_save_f cn cont' , . . . 

'Tag' , 'Pushbuttonl' ) ; 

assignin( 'base ' , 'H_datainl' ,H_datainl) ; 
assignin( 'base' , 'H_dataoutl' ,H_dataoutl) ; 
assignin( 'base' , 'H_SC_SAVE' ,H_SC_SAVE) ; 
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17. sc_save_fcn.m 

function sc_save_fcn (Action) 

% Switchyard Callback for sc_save.in 

% Written for JANRAD version 6.0 by LT David A. Heathorn 

global H_PERF_OUT S_USER_INPUT S_PERF_INPUT S_PERF_OUTPUT S_MATR_VEC. . . 
H_datainl H_dataoutl H_SC_SAVE H_SAVE_C0N . . . 

H_outputfile H_vecfile H_inputfile OUT_COUNT H_SAVE S_STAB_INPUT Amat 
Bmat 

if nargin 

switch Action 
case 'cont' 

close (H_SC_SAVE) 
close (H_SAVE_CON) 

S_PERF_INPUT=S_USER_INPUT ; 
return 

case 'save' 

A=Amat ( 1 : 8 , 1 : 8 ) ; 

B=Bmat { 1 : 8 , 1 : 4 ) ; 

f ilenainel=get (H_datainl , 'String' ) ; 
f ilenamela= [ f ilenamel '_in']; 

eval ( [ ' save ' , f ilenainela, ' S_USER_INPUT S_STAB_INPUT ' ] ) 
unstructure3 

filenaine2= [ f ilenamel '_out' ] ; 
eval ([' save ' , f ilename2 , ' A B' ] ) 
save_con 

end 

end 
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18 . sc_status.m 



function sc_status() 

% This is the machine-generated representation of a MATLAB object 
% and its children. Note that handle values may change when these 
% objects are re-created. This may cause problems with some callbacks. 

% The command syntax may be supported in the future, but is currently 
% incomplete and subject to change. 

% 

% To re-open this system, just type the name of the m-file at the MATLAB 
% prompt. The M-file and its associtated MAT-file must be on your path. 

% Status screen for Stability and Control Computation 

% Written for JANRAD version 6.0 by LT David A. Heathorn 

load sc_status 
global S_H_SC_STAT 

H_SC_STAT = figure ( 'Units ' , 'normalized' , ... 

'Color' ,[0.80.80.8], ... 

'Colormap' ,mat0, ... 

'Name' ,' Stability & Control Status', ... 

'NumberTitle' , 'off' , ... 

' PointerShapeCData ' , matl , ... 

'Position' , [0.00125 0.045 0.9975 0.89], ... 

'Tag' , 'Figl' ) ; 

b = uicontrol ( 'Parent' ,H_SC_STAT, . . . 

'Units' , 'normalized' , ... 

'BackgroundColor' , [0 .752941 0.752941 0.752941], ... 

'Position' , [0.10616 0.190385 0.802097 0.767308], ... 

' Style' ,' frame' , ... 

' Tag ' , ' Frame2 ' ) ; 

H_STATUS3 = uicontrol ( ' Parent ' , H_SC_STAT, . . . 

'Units ',' normalized' , ... 

'BackgroundColor' , [0.752941 0.752941 0.752941], ... 

' FontSize ' , 12 , ... 

'FontWeight' , 'bold' , ... 

'Position' , [0.27654 0.836538 0.440367 0.0538462], ... 

' String' ,' Stability and Control Analysis Status Box', ... 

' Style' , ' text' , ... 

' Tag ' , ' StaticTextl ' ) ; 

H_STATUS1 = uicontrol ( ' Parent ' , H_SC_STAT, . . . 

'Units ', 'normalized' , ... 

'BackgroundColor' , [0 .752941 0.752941 0.752941], ... 

'FontSize' ,12, ... 

'FontWeight' , 'bold' , ... 

'Position' , [0.279161 0.678846 0.439056 0.134615], ... 

' Style' , ' text ' , ... 

' Tag ' , ' StaticText2 ' ) ; 

H_STATUS2 = uicontrol ( ' Parent ' , H_SC_STAT, . . . 

'Units ', 'normalized' , ... 

'BackgroundColor' , [0.752941 0.752941 0.752941], ... 

' FontSize' , 12 , ... 

' FontWeight ' , ' bold ' , ... 

'Position' , [0.281782 0.526923 0.436435 0.140385], ... 
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' style ' , ' text ' , ... 

'Tag' , 'StaticTextB ' ) ; 

H_STATUS = uicontrol ( 'Parent' ,H_SC_STAT, ... 

'Units ', 'normalized' , ... 

'BackgroundColor' , [0 .752941 0.752941 0.752941], .. 

' FontSize' , 12 , ... 

'FontWeight' , 'bold' , ... 

'Position' , [0.284404 0.369231 0.433814 0.15], ... 

' Style' , ' text' , ... 

' Tag ' , ' StaticText4 ' ) ; 

H_STATUS4 = uicontrol ( ' Parent' ,H_SC_STAT, . . . 

'Units' , 'normalized' , ... 

'BackgroundColor ', [0 .752941 0.752941 0.752941], .. 

' FontSize' , 12 , ... 

'FontWeight' , 'bold' , ... 

'Position' , [0.281782 0.203846 0.433814 0.151923], 

' Style' , ' text' , ... 

' Tag ' , ' StaticText5 ' ) ; 

H_BK = uicontrol ( ' Parent' ,H_SC_STAT, . . . 

'Units' , 'normalized' , ... 

'Callback' , ' sc_anal_f cn back' , ... 

' FontSize' , 12 , ... 

'FontWeight' , 'bold' , ... 

'Position' , [0.0767857 0.064 0.178571 0.072], ... 

'String', '« Back', ... 

'Tag' , ' Pushbuttonl ' ) ; 

H_GO = uicontrol ( 'Parent' ,H_SC_STAT, . . . 

'Units' , 'normalized' , ... 

'Callback' ,' global S_H_SC_STAT ; sc_status_f cn anal 
' FontSize ', 12 , ... 

'FontWeight' , 'bold' , ... 

'Position' , [0.301786 0.0613333 0.178571 0.072], .. 

'String' , 'Analyze' , ... 

'Tag' , ' Pushbutton2 ' ) ; 

H_RUPT = uicontrol ( ' Parent' ,H_SC_STAT, . . . 

'Units' , 'normalized' , ... 

'Callback' ,' sc_anal_fcn interrupt', ... 

' Enable ' , ' of f ' , ... 

' FontSize ', 12 , ... 

' FontWeight ', 'bold' , ... 

'Position' , [0.528571 0.0613333 0.178571 0.072], .. 

' String' ,' Interrupt ' , ... 

'Tag' , ' Pushbutton3 ' ) ; 

H_RES = uicontrol ( ' Parent ' , H_SC_STAT, . . . 

'Units ', 'normalized' , ... 

' Callback' ,' sc_anal_fcn resume', ... 

' Enable ' , ' off ' , ... 

' FontSize' , 12 , ... 

'FontWeight' , 'bold' , ... 

'Position' , [0.755357 0.0613333 0.178571 0.072], .. 

'String' , 'Resume' , ... 

'Tag' , ' Pushbutton4 ' ) ; 

H_MEN = uimenu ( ' Parent ' , H_SC_STAT, . . . 

'Label' , 'JANRAD Options' , ... 

' Tag ' , ' uimenul ' ) ; 
c = uimenu ( ' Parent ' , H_MEN, . . . 

'Callback' ,' sc_anal_fcn quit', ... 
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'Label' , 'Quit JANRAD' , ... 

'Tag' , ' JANRAD OptionsSubuimenul ' ) ; 
c = uimenu { ' Parent ' , H_MEN, . . . 

'Callback' , ' sc_anal_fcn return' , ... 

'Label' , 'Return to Begining' , ... 

'Tag' , 'JANRAD OptionsSubuimenul' ) ; 
c = uimenu { 'Parent' ,H_MEN, . . . 

'Callback' , ' sc_status_f cn delta_input' , . . . 

'Label' , 'Change Input Parameters' , ... 

'Tag' , ' Subuimenul ' ) ; 
c = uimenu { ' Parent ' , H_MEN, . . . 

'Callback' ,' sc_status_fcn about', ... 

' Label ', 'About Janrad 98 ...', ... 

'Separator' , 'on' , ... 

' Tag ' , ' Subuimenul ' ) ; 

S_H_SC_STAT . h_sc_stat=H_SC_STAT ; 

S_H_SC_STAT .h_status=H_STATUS ; 

S_H_SC_STAT . h_statusl=H_STATUSl ; 

S_H_SC_STAT .h_status2=H_STATUS2 ; 

S_H_SC_STAT . h_status3=H_STATUS3 ; 

S_H_SC_STAT .h_status4=H_STATUS4 ; 

S_H_SC_STAT . h_bk=H_BK ; 

S_H_SC_STAT . h_go=H_GO ; 

S_H_SC_STAT . h_rupt=H_RUPT ; 

S_H_SC_STAT . h_r es=H_RES ; 

S_H_SC_STAT . h_men=H_MEN ; 
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19. sc_status_fcn.m 

function sc_status_fcn (Action) 

% Switchyard Callback for sc_status .m 
% Written for JANRAD version 6.0 by LT David A 

global S_H_SC_STAT S_PERF_INPUT S_STAB_INPUT_; 

% load input_param 
H_SC_STAT=S_H_SC_STAT . h_sc_stat ; 
H_STATUS=S_H_SC_STAT . h_status ; 
H_STATUS=S_H_SC_STAT . h_s tatusl ; 
H_STATUS=S_H_SC_STAT . h_s tatus2 ; 
H_STATUS=S_H_SC_STAT . h_status3 ; 
H_STATUS=S_H_SC_STAT . h_s tatus4 ; 
H_BK=S_H_SC_STAT . h_bk ; 

H_GO=S_H_SC_STAT . h_go ; 

H_RUPT=S_H_SC_STAT . h_rupt ; 

H_RES=S_H_SC_STAT . h_res ; 

H_MEN=S_H_SC_STAT . h_men ; 



if nargin, 

switch Action 

case 'back' 

s tabi 1 i ty_cont ro l_input_2 
close (H_SC_STAT) 
case 'anal' 

set (H_GO, ' Enable ' , ' of f ' ) ; 
set (H_RUPT, ' Enable' , ' on' ) ; 
set (H_BK, 'Enable' , 'off ' ) ; 
set (H_RES, ' Enable' , ' off' ) ; 
set (H_MEN, 'Enable' , 'off' ) ; 

if S_PERF_INPUT.Vinf<20 
Hover 

el seif S_PERF_INPUT.Vinf >=20 
Cruise 

end 

close (H_SC_STAT) 

case 'interrupt' 

set (H_G0, 'Enable' , 'off ' ) ; 
set (H_RUPT, ' Enable ' , ' off ' ) ; 
set (H_BK, 'Enable' , 'off' ) ; 
set (H_RES, ' Enable' , ' on' ) ; 
set (H_MEN, 'Enable' , 'on') ; 
uiwait ; 
case 'resume' 

set (H_GO, 'Enable' , 'off' ) ; 
set(H_RUPT, 'Enable' , 'on' ) ; 
set (H_BK, 'Enable' , 'off' ) ; 
set (H_RES, 'Enable' , 'off ' ) ; 
set (H_MEN, 'Enable' , 'off' ) ; 



Heathorn 

S_STAB_INPUT_2 



125 



uiresume; 
case 'quit' 
quit_gui 
case 'return' 

close (H_SC_STAT) 
clear all 
j anrad9 8 

case ' delta_input ' 
close (H_SC_STAT) 
s tabi 1 ty_control_input_l 
case 'about' 

about_j anrad 

end 

end 
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20. Stab_calc_la.m 



% Stab_calc_la.m 

% Calculates change in CT CH CQ als bis with respect to change in 

inflow ratio. 

% Written for JANRAD version 6.0 - LT David A. Heathorn 

global RADSPC_VAL NL_TWIST_VAL NEW_AUX_VAL FIX_TPP_VAL NEW_TPP 
S_PERF_OUTPUT lamdaT_trim 



set (H_STATUS, 'String' , 'EXECUTING ROTOR DERIVATIVE ROUTINE') 

set (H_STATUS1, ' String' ,[ 'RUN ELAPSED TIME IS ' num2str ( f ix ( toe) ) ' 

SECONDS ' ] ) 

pause (3 ) 

1 amda s a ve = 1 amdaT_ t rim 
for kk=l:3 



if kk==l 



lamda _prime=lamdasave- ( . 5*lamdasave) ; 
n=l ; 

vlamp_la(l,n)=-lamda _prime; 
elseif kk==2 



n=2 ; 

lamda _prime=lamdasave; 
vl amp_l a ( 1 , n ) = - 1 amda_pr ime ; 

else 

lamda _prime=lamdasave+ ( . 5*lamdasave) ; 
n=3 ; 

vlamp_la (1 , n) =-lamda _prime; 



end 

unstructure2 
thetalc=thetalc/57 .3 ; 
thetals=thetals/57 . 3 ; 
thetao=thetao/57 . 3 ; 
alphaT=alphaT/57 . 3 ; 
betao=betao/ 57 . 3 ; 

rho=.002377*(-.000031*PA+(-.002*temp+1.118) ) ; 



q=0 . 5*rho*Vinf ''2 ; 
Adisk=pi*R^2 ; 
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Vtip=omega*R; 
temp_ran]c=temp+459 .67; 
spd_snd=49 . l*sqrt ( temp_rank) ; 

Lwing=q * CLwing * Swing ; 

Dfuse=q*Afh; 

CDwing=CDowing+ (CLwing''2/ (ewing*pi* (bwing'^2/Swing) ) ) ; 

CDhoriz=CDohoriz+ (CLhoriz'^2/ ( . 8*pi* (bhoriz''2/Shoriz) ) ) ; 

CDvert=CDovert+ (CLvert''2/ ( . 8*pi* (bvert''2/Svert ) ) ) ; 

Dwing=q* CDwing* Swing ; 

Dhoriz=q*CDhoriz*Shoriz ; 

Dvert=q*CDvert*Svert ; 

Dftotal= (Dfuse+Dwing+Dhoriz+Dvert) ; 

% This section is for compound helos, adjustment of aux thrust 
efficiency with airspeed 
if Vinf/1.68781<=70 
AUXEFF=. 650; 

elseif Vinf/1.68781<=100 

AUXEFF=.65+.0025* { (Vinf /I . 68781) -70) ; 
elseif Vinf/1.68781<=160 

AUXEFF=. 725+. 0025* ( (Vinf /I . 68781) -100) ; 
elseif Vinf/1.6878K=210 

AUXEFF=.85+. 00007* { (Vinf /I . 68781) -160 ) ; 
else 

AUXEFF=. 847; 

end 

% This section provided aux thrust schedule for compound helo 
switch NEW_AUX_VAL 
case 0 

Dftotal= (Dfuse+Dwing+Dhoriz+Dvert) -Taux; 
case 1 

if PA==8000 

Taux=16*Vinf /I . 68781 ; % linear increase in aux thrust up to 210 

knots 

S_PERF_INPUT . Taux=Taux; 

S_USER_INPUT . Taux=Taux; 
elseif PA==5000 

Taux=17 . 024*Vinf /I . 68781; % linear increase in aux thrust up 

to 210 knots 

S_PERF_INPUT . Taux=Taux ; 

S_USER_INPUT . Taux=Taux; 
elseif PA==0 

Taux=Df total; 

S_PERF_INPUT . Taux=Taux ; 

S_USER_INPUT . Taux=Taux ; 

end 

end 

Lhoriz=q*CLhoriz*Shoriz ; 
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Lvert=q*CLvert*Svert ; 



Lf total=Lwing+Lhoriz; 
if FIX_TPP_VAL==1 

alphaT=NEW_TPP; %set tip path angle 

else 

Drotor=Hrotor ; % keep the tip path plane angle constant 

a lphaT_t r im= a IphaT ; 

altpp=alphaT; 



end 

% *** thrust calculation *** 



T= (GW-Lf total) /cos (alphaT) ; 

CT=T/ (Adisk*rho*Vtip''2 ) ; 

% *** setup blade radius elements, azimuth elements, 

% induced velocity distributions, and determination 

% of coning angle and tip loss parameter *** 

B=l- (sqrt (2*CT) /b) ; 

Reff=B*R; 

Rbar=Ref f-e; 



if RADSPC_VAL==1 

NEW_rl= [NEW_r , Reff/R]; 
n=length (NEW_rl) ; 
dr=dif f (NEW_rl) *R; 
r=(NEW_rl{l:n-l) *R)+dr/2; 
else 

dr= (Ref f -grip) /nbe; 
r=grip ;dr :Ref f-dr; , r=r+dr/2 ; 

end 

if NL_TWIST_VAL==1 

NL_TWIST=NL_TWIST/57 . 3 ; 
n=length(NL_TWIST) ; 
if RADSPC_VAL==1 

y=( (Reff/R) -NEW_r (n) ) * ( (NL_TWIST(n) -NL_TWIST (n-1 ) ) / (NEW_r(n) - 
NEW_r (n-1) ) ) ; 
else 

y=( (Reff/R) -r (n) ) * ( (NL_TWIST(n) -NL_TWIST (n-1 ) ) / (r(n) - r(n-l) ) ) ; 
end 

NL_TWIST1= [NL_TWIST (NL_TWIST (n) +y) ] ; 
m=length (NL_TWIST1 ) ; 
dTW=diff (NL_TWIST1) ; 



129 



twist=(NL_TWISTl (1 :m-l) ) +dTW/2; 
betat=twist ; 
else 

betat= twist* (0 . 7- (r/R) ) ; 



end 

rTl=rT2; % *** Set value for rT as calculated for tirm 



RbarT=rTl*Rbar ; 
mblade=wblade/32 . 17 ; 

%betao=asin { (T/b*RbarT- ( . 5* (R-e) +e) *wblade) / ( ( . 5* (R- 
e) +e) ^2*omega^2*mblade) ) 

psi=0 : 360/naz : 360-360/naz; , psi=psi '757.3; 



%% set up vector of blade element chords and then varies them as 
%% requested with the blade taper and blade taper start position 
%% rchord=root chord 

%% cblade=vector of blade element chord lengths 
%% tr=taper ratio {tip/root) 

%% trst=taper ratio start position (r/R) 

cblade=rchord*ones (size (r) ) ; % gives all elements same chord 

length initially 

if tr==0 % prevents division by zero later in code 

tr=l; % in case 0 is enter for taper ratio instead 
end % of 1 for no taper 

if trst==0 

slope= (rchord-rchord*tr) / (Ref f-grip) ; ' % Modifies each element 

cblade=cblade-slope* (r-grip) ; % chord length wrt input 

tchord=cblade (nbe) ; % taper ratio which has 

been 
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mchord=sum(cblade) /nbe; 



% been converted into a slope 



% top portion takes into 

else % account the possibility 

that 

slope= (rchord-rchord*tr) / (R* (1-trst) ) ; % a 0 start position is 

really at 

z=f ix (nbe*trst ) ; % the start of the aero 

portion 

if z<=l % prevents beginning index fm being zero 

z = l ; 

end 

cblade (z :nbe) =cblade ( z :nbe) - (r ( z :nbe) -r ( z) ) *slope; 

tchord=cblade (nbe) ; 

mchord=sum( cblade) /nbe; 

end 



% *** induced velocity determination *** 



vi_trim=lcimdaT_trim*Vtip+ (Vinf *sin(alphaT_trim) ) ; 
vi=lamda_prime*Vtip+ (Vinf *sin (alphaT) ) ; 

% Calulate new coning angle based on change in alpha of blade 

phi_old=atan ( (Vinf *sin (alphaT_trim) +vi_trim) /Vtip) ; 
phi_new=atan ( (Vinf *sin (alphaT) +vi) /Vtip) ; 

betao=betao* (1- ( (phi_new-phi_old) / ( thetao-phi_old) ) ) ; 

vi=vi*ones (size (r) ) ; 

% *** Calculate theta based on trim conditions *** 

theta=thetao+thetalc . *cos (psi) +thetals . *sin (psi) ; 
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% 



rotor trimming routine 



set (H_STATUS, 'String' , 'CALULATING ' ) 

set (H_STATUS1, 'String' ,[ 'RUN ELAPSED TIME IS ' num2str ( f ix ( toe) ) 
SECONDS' ] ) 
pause (3 ) 

set (H_STATUS2 , ' String ' , ' ' ) 



Tpsi=zeros (size(psi) ) ; 
Npsi=zeros (size (psi) ) ; 
thrcalc 

Trotor=mean(Tpsi) *b; 

Mpsi ( : / k) =zeros (size (psi) ) ; 
tmcalc 



% *** calculating drag moments *** 
set (H_STATUS2, 'String' , 'CALCULATING DRAG MOMENT' ) 
set (H_STATUS1, 'String' , ['RUN ELAPSED TIME IS ' num2str ( f ix ( toe ) ) 
SECONDS ' ] ) 
pause (2) 

DMpsi=zeros (size (psi) ) ; 
dmcalc 

Qrotor=mean (DMpsi ) *b; 

% *** calculating rotor H force *** 

set (H_STATUS2 , ' String ' , ' CALCULATING ROTOR DRAG ' ) 

set (H_STATUS1, 'String' , ['RUN ELAPSED TIME IS ' num2str ( f ix ( toe ) ) 
SECONDS ' ] ) 
pause (2) 



dT=[dT ddT] ; 
dN=[dN ddN] ; 
dD=[dD ddD] ; 

for i=l : length (r) +1 , 

Hlc ( i) =2*sum(dT ( : , i) . *cos (psi ) ) /naz ; 

His (i) =2*sum(dD( : , i) . *sin(psi) ) /naz; 



end 
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Hrotor= ( ( (b*cos (alphaT) /2 ) * (sum (His) -sin (betao) *sum (Hlc) ) ) +Drotor) /2 ; 



CT=Trotor/ (Adisk*rho*Vtip^2 ) ; 

CH=Hrotor/ (Adisk*rho*Vtip^2 ) ; 

CQ=Qrotor/ (Adisk*rho*Vtip''2 *R) ; 

solidity=b* (sum(cblade) /length (r) ) / (pi*R) ; 

vctsig_la (l,n) =CT/solidity; 
vcqsig_la (l,n) =CQ/solidity; 
vchsig_la (1 ,n) =CH/solidity; 
vmu_la ( 1 , n ) =mu ; 



% Determine flapping 

lockno=rho*a* ( sum(cblade) /length (r) ) *R'^4/Ib; 

Al=-thetalc ; 

Bl=-thetals; 
ctsig=vctsig_la(l,n) ; 
thetao=thetao- . 7*thetal ; 



altpp= (vlamp_la ( 1, n) /mu) + ( solidity*ctsig/2/ (mu*sqrt (mu''2+vlamp_la (1, n) ^^2 

))); 

numl=thetao*mu*8/3 ; 

num2=2 *thetal*mu; 

n\im3 = -Bl* (1+ ( (3/2) *mu^2) ) ; 

num4=2*mu* (mu*altpp- (ctsig*solidity/2/mu) ) ; 

denl=l- ( (mu''2 ) 12 ) ; 

terml= (numl+num2+num3 ) /deni ; 

num5=12* (e/R) ; 

den5=loc)cno* ( (1- (e/R) ) ''3 ) * (1+ (mu'^4) /4) ; 
term2 =num5 / denS ; 

num€=Al* (1+ ( . 5*mu^2) ) ; 
num7= (4/3) *ctsig; 
num8= (2/3 ) *mu*lockno/a; 
num9 = solidity / 2 *mu; 
den6=l+(3*e/2/R) ; 

term3=num6+ (num7* ( (num8/den6) +num9) ) ; 
vals_la ( 1 , n) = ( terml+ ( term2 *term3 ) ) ; 



wi_la (l,n) =mean(vi) ; 
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bnuml= {4/3 ) *ctsig; 
bdenl=l+ ( (mu''2 ) /2 ) ; 
bnum2= (2/3) *mu*lockno/a; 
bden2=l+ (3*e/2/R) ; 
bterml=solidi ty/ 2 /mu ; 

bterm2=Al+( (bnuml/bdenl ) * ( (bnum2 /bden2 ) +bterml ) ) ; 
bnum3=12*e/R; 

bden3=lockno* ( (l-(e/R) ) ^3 ) * (1- ( . 25* (mu''4) ) ) ; 
bterm3 =bnum3 /bden3 ; 

bnum4=2*mu* ( (mu* (altpp-altpp) ) - (ctsig*solidity/2/mu) ) ; 
bterm4=numl+num2+num3+bnum4 ; 
vbls_la (l,n) =bterm2+ (bterm3 *bterm4 ) ; 



%tail rotor 
% 

if tailrot==l 

ctsig=vctsig_la (l,n) ; 
cqsig=vcqsig_la (l,n) ; 
ohm=omega; 
lv=lvd-xcg; 
g=3 2 . 2 ; 

A=pi*R*R; 



Abt=bt*Rt*ct; 

At=pi*Rt*Rt; 

mut=Vinf/ohmt/Rt; 

sigmat=Abt/At ; 

lt=ltd-xcg; 

ht=htd-zcg; 

yt=ytd-ycg; 

locknot=rho*at*ct*Rt^4/Ibt ; 

Tt= (cqsig*solidity*rho*A* (ohm*R) ^^2 *R-Lvert*lv) /It; 
ctsigt=Tt/ (rho*At* (ohmt*Rt) ^2) ; 
lampt=-ctsigt*solidity/2/mu; 

aot=2/3*locknot*ctsigt/at-3 /2*g*Rt^2/ (ohmt*Rt ) ^2 ; 
alst=(-2*( (4/3 *mut*aot+ctsigt*sigmat/2/mut ) / (2+mut*mut) )*(1- 
(4*mut/ (2+3*mut*mut) )^ 2 )* . . . 

tan(delta3 ) ) / ( ( (2-mut*mut) / (2+3*mut*mut) ) + (1- 
(4*mut/ (2+3*mut*mut) ) '^ 2 ) *tan(delta3) ^2) ; 

blst=2* ( (4/3*mu*aot*ctsigt*solidity/2/mu) / (2+mu*mu) ) +alst* tan (delta3 ) 
thetaot= ( (4*ctsigt/at ) - 

( . 5+mut*mut/2 ) *thetalt+mut*blst*tan (delta3 ) -lampt ) /... 

( 2/3+mut*mut ) -aot*tan (delta3 ) ; 
theta75t=thetaot+ . 75* thetalt ; 
vlt=sqrt(Tt/2/rho/At) ; 
vctsigt_lat (1, n) =ctsigt; 
vlampt ( 1 , n) =lampt ; 



end 
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end 
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21. Stab_calc_mu.ni 

% Stab_calc_mu .m 

% Calculates change in CT CH CQ als bis with respect to input 

parameters 

% Created for JANRAD version 6.0 by LT David A. Heathorn 

global RADSPC_VAL NL_TWIST_VAL NEW_AUX_VAL FIX_TPP_VAL NEW_TPP 
S_PERF_OUTPUT lamdaT_trim 

set {H_STATUS, 'String' , 'EXECUTING ROTOR DERIVATIVE ROUTINE') 
set (H_STATUS1, 'String' ,[ 'RUN ELAPSED TIME IS ' num2str ( f ix { toe ) ) 
SECONDS ' ] ) 

pause (3 ) 

% *** calculation of required parameters *** 



Vsave=Vinf ; 
for kk=l:3 



if kk==l 

Vinf=Vsave- (Vsave* . 15) ; 
n=l ; 

elseif kk==2 
Vinf=Vsave; 
n=2 ; 

else 

Vinf=Vsave+ (Vsave* . 15 ) ; 
n=3 ; 

end 

unstructure2 
thetalc=thetalc/57 . 3 ; 
thetals=thetals/57 . 3 ; 
thetao=thetao/ 57 . 3 ; 
alphaT=alphaT/57 . 3 ; 
betao=betao/57 . 3 ; 



rho=.002377*{-.000031*PA+(-.002*temp+1.118) ) ; 



q=0 . 5*rho*Vinf'"2 ; 



Adisk=pi*R^2 ; 

Vt ip= omega *R; 
temp_rank=temp+459 . 67 ; 
spd_snd=49 . l*sqrt ( temp_rank) ; 
Lwing=q *CLwing* Swing; 
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Dfuse=q*Afh; 

CDwing=CDowing+ (CLwing''2/ (ewing*pi* (bwing'^2 /Swing) ) ) ; 

CDhoriz=CDohoriz+ (CLhoriz''2/ ( . 8*pi* (bhoriz'^2/Shoriz) ) ) ; 

CDvert=CDovert+ (CLvert''2/ ( . 8*pi* (bvert^2/Svert) )} ; 

Dwing=q * CDwing * Swing ; 

Dhoriz=q*CDhoriz*Shoriz; 

Dvert=q*CDvert*Svert ; 

Dftotal= (Dfuse+Dwing+Dhoriz+Dvert } ; 

% This section is for compound helos, adjustment of aux thrust 
efficiency with airspeed 
if Vinf/1 .68781<=70 
AUXEFF=.650; 

elseif Vinf/1. 6878K=100 

AUXEFF=.65+.0025* ( (Vinf /I . 68781 ) -70 ) ; 
elseif Vinf/1.68781<=160 

AUXEFF=. 725+. 0025* ( (Vinf /1 . 68781 ) -100 ) ; 
elseif Vinf/1. 68781<=210 

AUXEFF=. 85+. 00007* ( (Vinf /I . 687 81 ) -160 ) ; 
else 

AUXEFF=.847; 

end 

% This section provided aux thrust schedule for compound helo 
switch NEW_AUX_VAL 
case 0 

Dftotal= (Dfuse+Dwing+Dhoriz+Dvert) -Taux; 
case 1 

if PA==8000 

Taux=16*Vinf /I . 68781 7 % linear increase in aux thrust up to 

210 knots 

S_PERF_INPUT . Taux=Taux ; 

S_USER_INPUT . Taux=Taux ; 
elseif PA==5000 

Taux=17 . 024*Vinf /1 . 68781 ; % linear increase in aux -thrust up 

to 210 knots 

S_PERF_INPUT . Taux=Taux ; 

S_USER_INPUT . Taux=Taux ; 
elseif PA==0 

Taux=Df total ; 

S_PERF_INPUT . Taux=Taux ; 

S_USER_INPUT . Taux=Taux ; 

end 

end 

Lhoriz=q*CLhoriz*Shoriz; 

Lvert=q*CLvert*Svert ; 

Lf total=Lwing+Lhoriz ; 
if FIX_TPP_VAL==1 

alphaT=NEW_TPP; %set tip path angle 



137 



else 

Drotor=Hrotor ; 

alphaT=atan2 ( (Df total+Drotor ) , (GW-Lf total) ) ; 

end 

mu^Vinf *cos (alphaT) /Vtip; 

% *** thrust calculation *** 



T= (GW-Lf total) /cos (alphaT) ; 

CT=T/ (Adisk*rho*Vtip^2) ; 

% *** setup blade radius elements, azimuth elements, 

% induced velocity distributions, and determination 

% of coning angle and tip loss parameter *** 

B=l- (sqrt (2*CT) /b) ; 

Reff=B*R; 

Rbar=Ref f-e; 



if RADSPC_VAL==1 

NEW_rl=[NEW_r, Reff/R]; 
n=length(NEW_rl) ; 
dr=dif f (NEW_rl ) *R; 
r=(NEW_rl(l:n-l) *R)+dr/2; 
else 

dr= (Reff-grip) /nbe; 
r=grip:dr:Reff-dr; ,r=r+dr/2; 

end 

if NL_TWIST_VAL==1 

NL_TWIST=NL_TWIST/57 . 3 ; 
n= length (NL_TWI ST) ; 
if RADSPC_VAL==1 

y= ( (Reff/R) -NEW_r (n) ) * ( (NL_TWIST (n) -NL_TWIST (n-1 ) ) / (NEW_r (n) - 
NEW_r (n-1) ) ) ; 
else 

y=( (Reff/R) -r (n) ) * ( (NL_TWIST(n) -NL_TWIST (n-1) ) / (r(n) - r(n-l) ) ) ; 
end 

NL_TWIST1= [NL_TWIST (NL_TWIST (n) +y)]; 
m=length(NL_TWISTl) ; 
dTW=diff (NL_TWIST1) ; 
twist= (NL_TWIST1 (l:m-l) ) +dTW/2; 
betat=twist; 
else 

be tat= twist* (0.7- (r/R) ) ; 



end 
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rTl=rT2 ; , % *** Set value for rT as calculated for tirm *** 
RbarT=rTl *Rbar ; 
mblade=wblade/32 . 17 ; 

% Coning angle using Thrust given from Trim condition 

betao=asin( (T/b*RbarT-( .5* (R-e)+e) *wblade) / ( ( .5* {R- 
e) +e) ^2*omega''2*mblade) ) ; 

psi=0 :360/naz:360-360/naz; ,psi=psi' /57 .3 ; 

%% set up vector of blade element chords and then varies them as 
%% requested with the blade taper and blade taper start position 
%% rchord=root chord 

%% cblade=vector of blade element chord lengths 
%% tr=taper ratio (tip/root) 

%% trst=taper ratio start position (r/R) 

cblade=rchord*ones ( size (r) ) ; % gives all elements same chord 

length initially 



if tr==0 % prevents division by zero later in code 

tr=l; % in case 0 is enter for taper ratio instead 
end % of 1 for no taper 



if trst==0 

slope= (rchord-rchord*tr ) / (Ref f-grip) ; % Modifies each element 

cblade=cblade-slope* (r-grip) ; % chord length wrt input 

tchord=cblade (nbe) ; % taper ratio which has 

been 



mchord=sum(cblade) /nbe; % been converted into a slope 

% top portion takes into 
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% account the possibility 



else 
that 

slope= {rchord-rchord*tr ) / (R* (1-trst ) ) ; % a 0 start position is 

really at 

z=f ix (nbe*trst ) ; % the start of the aero 

portion 

if z<=l % prevents beginning index fm being zero 

z=l; 

end 

cblade (z :nbe) =cblade ( z ; nbe) - {r {z :nbe) -r (z) ) *slope; 

tchord=cblade (nbe) ; 

mchord=sum( cblade) /nbe; 

end 



% *** induced velocity determination *** 

%. Wheatley Eqn for Fwd fit 

lamdaT=0; 
lamda=l ; 

while abs (lamdaT-lamda) >le-4 
lamda=lamdaT ; 

lamdaT=mu*sin (alphaT) +0 . 5*CT/sqrt ( lamdaT''2+mu''2 ) ; 

end 

vi=lamdaT*Vtip-Vinf*sin (alphaT) ; 
vi=vi*ones (size (r) ) ; 

% *** Calculate theta based on trim conditions *** 
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theta=thetao+thetalc . *cos (psi) +thetals. *sin(psi) ; 



% *** rotor triinming routine *** 



set (H_STATUS , ' String ' , ' CALULATING ' ) 

set (H_STATUS1, 'String' , ['RUN ELAPSED TIME IS ' num2str (fix ( toe) ) 
SECONDS ' ] ) 
pause (3 ) 

set (H_STATUS2 , ' String' , " ) 



Tpsi=zeros (size (psi) ) ; 
Npsi=zeros (size (psi) ) ; 
thrcalc 

Trotor=mean (Tpsi ) *b; 

Mpsi ( : , k) = zeros (size (psi) ) ; 
tmcalc 



% *** calculating drag moments *** 

set (H_STATUS2 , ' String' , 'CALCULATING DRAG MOMENT' ) 
set (H_STATUS1, 'String' ,[ 'RUN ELAPSED TIME IS ' num2str (fix(toc) ) 
SECONDS ' ] ) 
pause (2 ) 

DMpsi=zeros (size (psi ) ) ; 
dmcalc 

Qrotor=mean (DMpsi) *b; 

% *** calculating rotor H force *** 

set (H_STATUS2, 'String' , 'CALCULATING ROTOR DRAG' ) 

set (H_STATUS1, 'String' ,[ 'RUN ELAPSED TIME IS ' n\im2str ( f ix ( toe) ) 
SECONDS ' ] ) 
pause (2) 



dT=[dT ddT] / 
dN=[dN ddN] ; 
dD=[dD ddD] ; 

for i=l : length (r) +1 , 

Hlc (i) =2*sum(dT( : , i) . *cos (psi) ) /naz; 

His (i) =2*sum(dD( ; , i) . * sin (psi) ) /naz; 



end 
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Hrotor= ( { (b*cos (alphaT) /2) * (sum (His) -sin(betao) *sum(Hlc) ) ) +Drotor) /2 



CT=Trotor/ (Adisk*rho*Vtip'"2 ) ; 

CH=Hrotor/ ( Adisk*rho*Vtip'"2 ) ; 

CQ=Qrotor/ ( Adisk*rho*Vtip'"2 *R) ; 

solid! ty=b* (sum(cblade) /length(r) ) / (pi*R) ; 

vctsig_mu ( 1, n) =CT/ solidity ; 
vcqsig_mu ( 1, n) =CQ/solidity; 
vchsig_mu (l,n) =CH/ solid! ty; 
vmu_mu ( 1 , n ) =mu ; 

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%NOT SURE AFTER 
THIS5%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 



al tpp= -alphaT; 
thetao=thetao- . 7*thetal ; 

lockno=rho*a* (sum(cblade) /length(r) ) *R^4/Ib; 

Al=-thetalc; 

Bl=-thetals; 
ctsig=vctsig_mu (1 , n) ; 

numl=thetao*mu*8/3 ; 
num2=2*thetal*mu; 
num3=-Bl* (l+( (3/2) *mu"2) ) ; 

num4=2*mu* (mu*altpp- (ctsig*solidity/2 /mu) ) ; 

denl=l- ( (mu"2) /2) ; 

terml= (numl+num2+num3 ) /deni ; 

num5=12* (e/R) ; 

den5=lockno* ( (1- (e/R) ) ^'3) * (1+ (mu^'4) /4) ; 
term2=num5/den5 ; 

num6=Al* ( 1+ ( . 5*mu'^2 ) ) ; 
num7= (4/3 ) *ctsig; 
num8= (2/3 ) *mu*lockno/a ; 
num9=solidity/2*mu; 
den6=l+ (3*e/2/R) ; 

term3=num6+ (num7* ( (num8/den6) +num9) ) ; 

vals_mu (l,n) = (terml+ ( term2 *term3 ) ) ; 

wi_mu ( 1 , n) =mean ( vi ) ; 

bnuml= (4/3) *ctsig; 
bdenl=l+ ( (mu^2) /2) ; 
bnum2= ( 2 /3 ) *mu*lockno/a ; 
bden2=l+ (3*e/2/R) ; 
bterml=solidity/2/mu; 

bterm2=Al+ ( (bnuml/bdenl ) * ( (bnum2 /bden2 ) +bterml) ) ; 
bnum3=12*e/R; 

bden3=lockno* ( (1- (e/R) ) ^3) * (l-( .25* (mu^^4) ) ) ; 
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btermB =bnum3 /bden3 ; 

bnum4=2*mu* ( (mu* (altpp-altpp) ) - (ctsig*solidity/2/mu) ) ; 
bterm4=numl+num2+num3+bnum4 ; 
vbls_mu (l,n) =bteriti2+ (bterm3*bterm4) ; 



%tail rotor % 
if tailrot==l 

ctsig=vctsig_mu (1 , n) ; 
cqsig=vcqsig_mu { 1 , n) ; 
ohm= omega ; 
lv=lvd-xcg; 
g=32 .2; 

A=pi*R*R; 



Abt=bt*Rt*ct ; 

At=pi*Rt*Rt; 
mut=Vinf /ohmt/Rt ; 
sigmat=Abt /At ; 
lt=ltd-xcg; 
ht=htd-zcg; 
yt=ytd-ycg; 

locknot=rho*at*ct*Rt^4/Ibt ; 

Tt= (cqsig*solidity*rho*A* (ohm*R) '^2*R-Lvert*lv) /It ; 
ctsigt=Tt/ (rho*At* (ohmt*Rt) ^^2) ; 
lampt =-ctsigt* solidity/ 2 /mu; 

aot=2/3 *locknot*ctsigt/at-3/2*g*Rt'^2/ (ohmt*Rt) '^2; 
alst= (-2* ( (4/3*mut*aot+ctsigt*sigmat/2/mut) / (2+mut*mut) ) * (1- 
(4*mut/ (2+3 *mut*mut) )'" 2 ) * . . . 

tan (delta3 ) ) / ( ( (2-mut*mut) / (2+3*mut*mut) )+(l- 
(4*mut/ (2 + 3*mut*mut) ) '" 2 ) *tan(delta3) ^2); 

blst=2* ( (4/3*mu*aot*ctsigt*solidity/2/mu) / (2+mu*mu) ) +alst* tan (delta3 ) 
thetaot= ( (4*ctsigt/at) - 

( . 5+mut*mut/2) * thetalt+mut*blst *tan (delta3 ) -lampt) / . . . 

(2/3+mut*mut) -aot*tan(delta3) ; 
theta75t=thetaot+ . 75*thetalt ; 
vlt=sqrt (Tt/2/rho/At ) ; 
vctsigt_mut (l,n) =ctsigt ; 
vmut (l,n) =mut; 



end 



end 
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22. Stab_cal_to.m 

% Stab_calc_to .m 

% Calculates change in CT CH CQ als bis with respect to input 

parameters 

% Written for JANRAD version 6.0 by LT David A. Heathorn 

global RADSPC_VAL NL_TWIST_VAL NEW_AUX_VAL FIX_TPP_VAL NEW_TPP 
S_PERF_OUTPUT lamdaT^trim 



set (H_STATUS, 'String' , 'EXECUTING ROTOR DERIVATIVE ROUTINE') 

set (H_STATUS1, 'String' ,[ 'RUN ELAPSED TIME IS ' num2str ( f ix ( toe ) ) ' 

SECONDS ' ] ) 

pause ( 3 ) 

% *** calculation of required parameters *** 



for kk=l:3 



if kk==l 

unstructure2 
thetao=thetao/57 . 3 ; 
theta_save=thetao ; 
theta_inc=- (1/57.3) ; 
thetao=thetao+ ( theta_inc) ; 
n=l ; 

vthetao_to ( 1 , n) =thetao ; 

elseif kk==2 

unstructure2 
thetao=thetao/57 . 3 ; 
theta_inc=0 ; 
n=2; 

vthetao_to (1 , n) =thetao; 
else 

unstructure2 
thetao=thetao/57 . 3 ; 
theta_inc= (1/57.3) ; 
thetao=thetao+ ( theta__inc) ; 
n=3 ; 

vthetao_to ( 1, n) =thetao; 



end 

thetalc=thetalc/57 . 3 ; 
thetals=thetals/57 . 3 ; 
alphaT=alphaT/57 . 3 ; 
betao=betao/57 . 3 ; 

Vinf =Vsave ; 
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rho=. 002377* (-. 00003 1*PA+ (-. 002 *temp+l . 118 ) ) ; 



q=0 . 5*rho*Vinf ^2 ; 



Adisk=pi*R''2 ; 

Vtip=omega*R; 
temp_rank=temp+459 . 67 ; 
spd_snd=4 9 . 1 * sqr t ( temp_rank ) ; 

Lwing=q* CLwing* Swing; 

Dfuse=q*Afh; 

CDwing=CDowing+ (CLwing^2/ (ewing*pi* (bwing'^2/Swing) ) ) ; 

CDhoriz=CDohoriz+ (CLhoriz^2 / ( . 8*pi* (bhoriz''2 /Shoriz ) ) ) ; 

CDvert=CDovert+ (CLvert^2/ ( . 8*pi* (bvert^2 /Svert ) ) ) ; 

Dwing=q*CDwing * Swing ; 

Dhoriz=q*CDhoriz*Shoriz; 

Dvert=q*CDvert*Svert ; 

Dftotal= (Dfuse+Dwing+Dhoriz+Dvert ) ; 

% This section is for compound helos, adjustment of aux thrust 
efficiency with airspeed 

if Vinf/1.68781<=70 
AUXEFF=.650; 

elseif Vinf/1 .6878K=100 

AUXEFF=.65+.0025*( (Vinf/1 . 68781) -70) ; 
elseif Vinf/1. 6878K=160 

AUXEFF=. 725+. 0025* ( (Vinf/1 . 68781) -100 ) ; 
elseif Vinf/1. 68781<=210 

AUXEFF=.85+. 00007* ( (Vinf/1 . 68781) -160) ; 
else 

AUXEFF=.847; 

end 

% This section provided aux thrust schedule for compound helo 
switch NEW_AUX_VAL 
case 0 

Df total= (Dfuse+Dwing+Dhoriz+Dvert) -Taux; 
case 1 

if PA==8000 

Taux=16*Vinf /I . 68781 % linear increase in aux thrust up to 210 

knots 

S_PERF_INPUT . Taux=Taux ; 

S_USER_INPUT . Taux=Taux ; 
elseif PA==5000 

Taux=17 . 024*Vinf /I . 68781 % linear increase in aux thrust up to 

210 knots 

S_PERF_INPUT . Taux=Taux ; 

S_USER_INPUT . Taux=Taux ; 
elseif PA==0 
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Taux=Df total ; 

S_PERF_INPUT . Taux=Taux; 

S_USER_INPUT . Taux=Taux ; 

end 

end 

Lhor i z = q * CLhor i z * Shor i z ; 

Lvert=q*CLvert *Svert ; 

Lf total=Lwing+Lhoriz ; 
if FIX_TPP_VAL==1 
Drotor=Hrotor ; 

alphaT=NEW_TPP; %set tip path angle 

else 

lamdaT= lamdaT_tr im ; 



altpp=asin ( (laindaT- ( . 5*CT/sqrt { lamdaT^2+mu^2 ) ) ) /mu) ; 
alphaT=altpp; 

Drotor=Hrotor ; 



end 



% *** thrust calculation *** 



T= (GW-Lf total) /cos (alphaT) ; 

CT=T/ (Adisk*rho^Vtip^2) ; 

% *** setup blade radius elements, azimuth elements, 

% induced velocity distributions, and determination 

% of coning angle and tip loss parameter *** 

B=l-(sqrt (2*CT) /b) ; 

Reff=B*R; 

Rbar=Ref f-e ; 



if RADSPC_VAL==1 

NEW_rl= [NEW_r, Reff/R]; 
n= length (NEW_rl) ; 
dr=diff {NEW_rl) *R; 
r= (NEW_rl (l:n-l) *R) +dr/2; 
else 

dr= (Ref f -grip) /nbe; 
r=grip:dr :Reff-dr; ,r=r+dr/2; 

end 
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if NL_TWIST_VAL==1 

NL_TWIST=NL_TWIST/57 . 3 ; 
n=length(NL_TWIST) ; 
if RADSPC_VAL==1 

y=( (Reff/R)-NEW_r (n) ) * ( (NL_TWIST (n) -NL_TWIST (n-1 ) )/(NEW_r(n)- 
NEW_r (n-1) ) ) ; 
else 

y=( (Reff/R) -r (n) ) * ( (NL_TWIST(n) -NL_TWIST (n-1) ) / (r(n) - r (n-1) ) ) 

end 

NL_TWIST1= [NL_TWIST (NL_TWIST (n) +y) ] ; 
m=length (NL_TWIST1 ) ; 
dTW=diff (NL_TWIST1) ; 
twist=(NL_TWISTl (l:m-l) ) +dTW/2; 
betat=twist ; 
else 

betat=twist* (0.7- (r/R) ) ; 



end 

rTl=rT2;,% *** Set value for rT as calculated for tirm *** 
RbarT=rTl *Rbar ; 
mblade=wblade/32 . 17 ; 



betao=betao- (theta_inc* (betao/ theta_save) ) ; 
psi=0 : 360/naz : 360-360/naz; ,psi=psi ' /57 . 3 ; 



%% set up vector of blade element chords and then varies them as 
%% requested with the blade taper and blade taper start position 
%% rchord=root chord 

%% cblade=vector of blade element chord lengths 
%% tr=taper ratio (tip/root) 

%% trst=taper ratio start position (r/R) 



cblade=rchord*ones (size (r) ) ; % gives all elements same chord 

length initially 

if tr==0 % prevents division by zero later in code 

tr=l; % in case 0 is enter for taper ratio instead 
end % of 1 for no taper 
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if trst==0 



slope= (rchord-rchord*tr) / (Reff-grip) ; 
cblade=cblade-slope* (r-grip) ; % 
tchord=cblade (nbe) ; 

been 



% Modifies each element 
chord length wrt input 

% taper ratio which has 



mchord=sum(cblade) /nbe; % been converted into a slope 

% top portion takes into 

else % account the possibility 

that 



slope= (rchord-rchord* tr) / (R* { 1-trst ) ) ; % a 0 start position is 

really at 

z=f ix(nbe*trst) ; % the start of the aero 

portion 

if z<=l % prevents beginning index fm being zero 

z = l ; 



end 

cblade (z :nbe) =cblade (z :nbe) - (r { z :nbe) -r ( z) ) *slope; 
tchord=cblade (nbe) ; 
mchord=sum( cblade) /nbe; 



end 



% *** induced velocity determination *** 

vi=lamdaT*Vtip-Vinf *sin (alphaT) ; 
vi=vi*ones (size (r) ) ; 



% *** Calculate theta based on trim conditions *** 
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theta=thetao+thetalc . *cos (psi) +thetals . *sin (psi) ; 



% *** rotor trimming routine *** 



set(H_STATUS, 'String' , 'CALULATING ' ) 

set {H_STATUS1, 'String' ,[ 'RUN ELAPSED TIME IS ' num2str { f ix { toe) ) 
SECONDS ' ] ) 
pause (3 ) 

set (H_STATUS2 , ' String' , ' ' ) 



Tpsi=zeros (size (psi) ) ; 
Npsi=zeros ( size (psi ) ) ; 
thrcalc 

Trotor=mean (Tpsi) *b; 

Mpsi ( : , k) =zeros (size (psi) ) ; 
tmcalc 



% *** calculating drag moments *** 
set(H_STATUS2, 'String' , 'CALCULATING DRAG MOMENT' ) 
set(H_STATUSl, 'String' ,[ 'RUN ELAPSED TIME IS ' num2str ( f ix ( toe) ) 
SECONDS ' ] ) 
pause (2 ) 

DMpsi=zeros (size (psi) ) ; 
dmcalc 

Qrotor=mean (DMpsi ) *b; 

% *** calculating rotor H force *** 

set(H_STATUS2, 'String' , 'CALCULATING ROTOR DRAG' ) 

set(H_STATUSl, 'String' ,[ 'RUN ELAPSED TIME IS ' num2str ( f ix ( toe) ) 
SECONDS ' ] ) 
pause (2 ) 



dT=[dT ddT] ; 
dN=[dN ddN] ; 
dD=[dD ddD] ; 

for i=l : length (r) +1 , 
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Hlc (i) =2*sum(dT( : , i) . *cos (psi) ) Jna.z; 

His ( i) =2*siim(dD ( : , i) . *sin (psi) ) /naz ; 

end 

Hrotor= ( ( (b*cos (alphaT) /2 ) * ( sum (His) -sin (betao) * sum (Hlc) ) ) +Drotor ) /2 ; 



CT=Trotor/ ( Adisk*rho*Vtip''2 ) ; 
CH=Hrotor/ ( Adisk*rho*Vtip^2 ) ; 
CQ=Qrotor/ (Adisk*rho*Vtip'^2*R) ; 



solidity=b* (sum(cblade) /length(r) ) / (pi*R) ; 

vctsig_to ( 1 , n) =CT/solidity ; 
vcqsig_to ( 1 , n) =CQ/solidity ; 
vchsig_to ( 1 , n) =CH/solidity ; 
vmu_t o ( 1 , n ) =mu ; 



%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%NOT sure after 
**********■*■■*■***■*■******■****■*■*** 



% assume alpha of shaft is zero 

lockno=rho*a* (sum(cblade) /length(r) ) *R‘^4/Ib; 

thetao=thetao- . 7*thetal ; 

Al=-thetalc; 

Bl=-thetals ; 

ctsig=vctsig_to (1 , n) ; 

altpp=-alphaT ; 

numl=thetao*mu*8/3 ; 
num2 = 2 * the t a 1 * mu ; 
num3=-Bl* (l+( (3/2) *mu''2) ) ; 

num4=2*mu* (mu*altpp- (ctsig*solidity/2/mu) ) ; 

denl=l-( (mu'^2) /2) ; 

terml= (numl+num2+num3 ) /deni; 

num5=12* (e/R) ; 

den5=lockno* ( (1- (e/R) ) "3 ) * ( 1+ (mu"4) /4) ; 
term2=num5 /den5 ; 

num6=Al* ( 1+ ( . 5*mu'^2 ) ) ; 
num7= ( 4/3 ) *ctsig; 
num8= (2/3 ) *mu*lockno/a; 
num9=solidity/2*mu; 
den6=l+(3*e/2/R) ; 
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terms =num6+ (num7* ( (nnm8/den6) +n-um9) ) ; 



vals_to (1 ,n) = (terml+ ( term2*term3 ) ) ; 

wi_t o ( 1 , n ) =mean ( vi ) ; 

bnuml= (4/3 ) *ctsig; 
bdenl=l+ ( (mu''2) /2) ; 
bnum2= (2/3 ) *mu*lockno/a; 
bden2=l+ (3*e/2/R) ; 
bterml=solidity/2/mu; 

bterm2=Al+ ( (bmiml/bdenl) * ( (bn-um2/bden2 ) +bterml) ) ; 
bnum3=12*e/R; 

bden3=lockno* ( ( 1- (e/R) ) ^3 ) * (1- ( . 25* (mu"^4) ) ) ; 
btermS =bnum3 /bden3 ; 

bnum4=2*mu* ( (mu* (altpp-altpp) ) - (ctsig*solidity/2/mu) ) ; 

bterm4=numl +num2 +num3 +bnum4 ; 

vbls_to (l,n) =bterm2+ (btermS *bterm4) ; 

%tail rotor 
% 

if tailrot==l 

ctsig=vctsig_to(l,n) ; 

cqsig=vcqsig_to(l,n); 

ohm= omega ; 

lv=lvd-xcg; 

g=32.2; 

A=pi*R*R; 



Abt=bt*Rt*ct; 

At=pi*Rt*Rt; 

mut=Vinf /ohmt/Rt ; 

sigmat=Abt/At; 

lt=ltd-xcg; 

ht=htd-zcg; 

yt=ytd-ycg; 

locknot=rho*at*ct*Rt'^4/Ibt ; 

Tt= (cqsig*solidity*rho*A* (ohm*R) ^^2 *R-Lvert*lv) /It; 
ctsigt=Tt/ (rho*At* (ohmt*Rt) ^2) ; 
lampt=-ctsigt*solidity/2/mu; 

aot=2/3*locknot*ctsigt/at-3 /2*g*Rt'^2/ (ohmt*Rt) ^2 ; 
alst= (-2* ( (4/3*mut*aot+ctsigt*sigmat/2/mut) / (2+mut*mut) ) * (1- 
(4*mut/ (2 + 3*mut*mut) } '"2) * . . . 

tan(delta3 ) ) / ( ( (2-mut*mut) / (2+3 *mut*mut) ) + (1- 
(4*mut/ (2 + 3 *mut*mut) ) '^2) * tan ( deltas ) '' 2 ) ; 

blst=2* ( (4/3*mu*aot*ctsigt*solidity/2/mu) / (2+mu*mu) ) +alst* tan (deltaS ) 
thetaot= ( (4*ctsigt/at) - 

( . 5+mut*mut/2 ) *thetalt+mut*blst* tan (deltas ) -lampt) / . . . 

(2/3+mut*mut) -aot*tan(delta3 ) ; 
theta75t=thetaot+ . 75*thetalt; 
vlt=sqrt (Tt/2/rho/At) ; 
vctsigt_tot (l,n) =ctsigt; 
vthetaot ( 1 , n) =thetaot ; 
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23. stab_control_input_fcn.m 

function stab_control_input_f cn (Action) 

% Switchyard Callback function for stab_control_input_l . m and 

stab_control_input_2 .m 

% Written for JANRAD version 6.0 by LT David A. Heathorn 

global S_STAB_INPUT_1 S_STAB_INPUT_2 H_STAB_IN S_PERF_INPUT 
S_PERF_OUTPUT H_STAB_IN1 . . . 

H_STAB_IN2 S_SC_INPUT_1 S_SC_INPUT_2 

if isempty (nargin) 
return 

end 



switch Action 
case 'contl' 

if isempty (getf ield(S_SC_INPUT_l , 'Ib' ) | . . . 
getfield(.S_SC_INPUT_l, 'hmd') ] . . . 
getfield(S_SC_INPUT_l, 'Imd' ) | . . . 
getfield(S_SC_INPUT_l, 'ymd' ) | . . . 
get field (S_SC_INPUT_1, 'im' ) | • • • 
getfield(S_SC_INPUT_l, 'hvd' ) | . . . 
get field (S_SC_INPUT_1, 'Ivd' ) | . . . 
getfield(S_SC_INPUT_l, 'yvd' ) | . . . 
getfield(S_SC_INPUT_l, 'alplov' ) | . . . 
getf ield (S_SC_INPUT_1 , 'clvertmax') | . . . 
getfield(S_SC_INPUT_l, 'av' ) | . . . 
getfield(S_SC_INPUT_l, 'hhd' ) | . . . 
getfield(S_SC_INPUT_l, 'Ihd' ) | . . . 
getfield(S_SC_INPUT_l, 'alploh' ) | . . . 
getfield(S_SC_INPUT_l, 'ih' ) | • 
getfield(S_SC_INPUT_l, 'ah' ) | - 
getfield(S_SC_INPUT_l, 'qhq' ) | . . . 
getfield(S_SC_INPUT_l, 'vhvl ' ) | . . . 
getfield(S_SC_INPUT_l , ' detaf dalpfh' ) | . . . 
getfield(S_SC_INPUT_l, 'htd' ) | . . . 
getfield(S_SC_INPUT_l, 'ytd' ) | . . . 
getfield(S_SC_INPUT_l, 'bt' ) | . . . 
getfield(S_SC_INPUT_l, 'ct' ) | . . . 
getfield(S_SC_INPUT_l, 'Rt' ) | . . . 
getfield(S_SC_INPUT_l, 'at') | . . . 
getfield(S_SC_INPUT_l, 'ohmt' ) | . . . 
getfield(S_SC_INPUT_l, ' Ibt ' ) | . . . 
getfield(S_SC_INPUT_l, 'delta3' ) | . . . 
getfield(S_SC_INPUT_l, ' thetalt' ) ) ; 

empty_boxes 

return 

end 

stability_control_input_2 
close (H_STAB_IN1 ) 

case 'cont2' 

if isempty (getf ield (S_SC_INPUT_2 , 'hwd' ) | . . . 
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getf ield(S_SC_ 
getfield(S_SC_ 
getfield(S_SC_ 
getf ield ( S_SC_ 
getf ield ( S_SC_ 
getfield(S_SC_ 
getfield(S_SC_ 
getf ield (S_SC_ 
getf ield ( S_SC_ 
getfield(S_SC_ 
getf ield (S_SC_ 
getf ield (S_SC_ 
getf ield (S_SC_ 
getfield(S_SC_ 
getf ield (S_SC_ 
getf ield (S_SC_ 
getfield(S_SC_ 
getfield(S_SC_ 
getf ield (S_SC_ 
getf ield (S_SC_ 
getfield(S_SC_ 
getfield(S_SC_ 
get f ield (S_SC_ 
get f ield (S_SC_ 
getf ield (S_SC_ 
getf ield (S_SC_ 
get f ield (S_SC_ 
getf ield (S_SC_ 
getf ield(S_SC_ 
getf ield (S_SC_ 



,INPUT_2 , 
,INPUT_2 , 
INPUT_2 , 
INPUT_2 , 
,INPUT_2 , 
INPUT_2 , 
INPUT_2 , 
INPUT_2 , 
INPUT_2 , 
INPUT_2 
INPUT_2 , 
INPUT_2 
INPUT_2 
INPUT_2 
INPUT_2 
INPUT_2 
INPUT_2 
INPUT_2 
INPUT_2 
INPUT_2 
INPUT_2 
INPUT_2 
INPUT_2 
INPUT_2 
INPUT_2 
INPUT_2 
INPUT_2 
INPUT_2 
INPUT_2 
INPUT_2 



) |... 



'Iwd' ) I 
' ywd ' ) I . 

' alplow' ] 

' iw' ) 1 
'aw' ) I . 

' ctw' ) I 
' crw' ) I 
' vwvl ' ) [ 

' detafdalpfw' ) | . 
' zcg' ) I 
'xcg' ) I 
'ycg' ) I 
'Ixx') I 
'lyy' ) I 
'Izz') I 
' Ixz ' ) I 
'vfvl' ) 

' htnd' ) 

' 1 tnd ' ) 

'ytnd' ) 

' dian' ) 

' swirl ' ) ] 

' Ytmaxn' ) | 

' Ittnd' ) I . . 
'dblmddele' ) | . . . 
'dalmddela' ) | . . . 
'dthetomddelc' ) | 
' dthetotddelp ' ) j 
' sidearm' ) | . . . 

' maxr ' ) ) ; 



empty_boxes 

end 

close (H_STAB_IN2) 
sc_status 



case 'cnx' 
analysis 
close (gcf) 
case 'backl' 
options 

close (H_PERF_IN1) 
case 'back2' 

stability_control_input_l 
close (H_PERF_IN2) 
case 'print' 

set (gcf, ' PaperOrientation' , 'landscape') 
set (gcf , ' PaperPosition' , [ . 5 .5 10 7.5]) 
print -dwinc 
case 'return' 
janrad98 
close all 
case 'quit' 
quit_gui 
case 'about' 

about_janrad 
case 'mesh' 
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airfoil_mesh 
case 'ok' 

close (H_AF_MESH) 

end 



24. stab_out_l.m 

function stab_out_l() 

% This is the machine-generated representation of a MATLAB object 
% and its children. Note that handle values may change when these 
% objects are re-created. This may cause problems with some callbacks. 

% The command syntax may be supported in the future, but is currently 
% incomplete and subject to change. 

% 

% To re-open this system, just type the name of the m-file at the MATLAB 
% prompt. The M-file and its associtated MAT-file must be on your path. 

% Created for JANRAD version 6.0 by LT David A. Heathorn 

load stab_out_l 
global Amat Bmat H_STAB_OUT 
load mat_temp 
A=Amat ( 1 : 8 , 1 : 8 ) ; 

B=Bmat(l:8,l:4) ; 



H_STAB_OUT = figure( 'Color' , [0.8 0.8 0.8], ... 

'Colormap' ,mat0 , ... 

' PointerShapeCData ' ,matl, . . . 

'Name ',' Linear Model of Helicopter', ... 

'Position' , [2 28 798 534], ... 

'Units' , 'points' , . . . 

'NumberTitle' , 'off' , ... 

'Tag' , 'Figl' ) ; 

b = uicontrol ( 'Parent' ,H_STAB_0UT, ... 

'Units ', 'points ' , ... 

'Position' , [2 .25 189.75 435.75 207.75], ... 

' Style ' , ' frame ' , ... 

'Tag' , ' Framel ' ) ; 

b = uicontrol ( 'Parent' ,H_STAB_OUT, . . . 

' Units ' , ' points ' , ... 

'Position' , [3 0.75 434.25 183.75], ... 

' Style ' , ' frame ' , ... 

' Tag' , ' Frame2 ' ) ; 

b = uicontrol ( 'Parent' ,H_STAB_OUT, . . . 

'Units' / 'points' , ... 

'BackgroundColor' , [0.752941 0.752941 0.752941], ... 

'HorizontalAlignment ' , ' left' , ... 

'Position' , [443 .25 128.25 52.5 255.75], ... 

' Style ' , ' frame ' , ... 

' Tag ' , ' Frame3 ' ) ; 

b = uicontrol ( 'Parent' ,H_STAB_OUT, . . . 

'Units ', 'points ' , ... 

'BackgroundColor' , [0.752941 0.752941 0.752941], ... 

'Position' , [500.25 237.75 93.75 145. 5J, ... 

' Style ' , ' frame ' , ... 

'Tag' , ' Frame4 ' ) ; 

b = uimenu ( ' Parent' , H_STAB_0UT, . . . 

' Label ', 'JANRAD Options', ... 

' Tag ' , ' uimenul ' ) ; 
c = uimenu (' Parent' ,b, ... 

'Callback' , ' stab_out_l_fcn quit' , ... 
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'Label 'Quit JANRAD' , ... 

'Tag' , ' JANRAD OptionsSubuimenul ' ) ; 
c = uimenu (' Parent ', b, ... 

'Callback' ,' stab_out_l_fcn return', ... 

'Label' , 'Return to Begining' , ... 

'Tag' , 'JANRAD OptionsSubuimenul' ) ; 
c = uimenu (' Parent ', b, ... 

'Callback' , ' stab_out_l_fcn delta_input' , ... 

'Enable' , 'of f ' , ... 

'Label' , 'Change Input Parameters' , ... 

'Tag' , 'Subuimenul' ) ; 
c = uimenu (' Parent ', b, ... 

'Callback' , 'per formance_input_fcn about', ... 
'Label' , 'About Janrad 98 . . . ' , ... 

' Separator ',' on' , ... 

' Tag ' , ' Subuimenul ' ) ; 

b = uicontrol ( 'Parent' ,H_STAB_OUT, ... 

'Units ', 'points ' , ... 

'Position' , [465.75 55.5 116.25 23.25], ... 

' String' ,' Save to File', ... 

'Callback' , ' stab_out_l_f cn save' , . . . 

' Tag ' , ' Pushbuttonl ' ) ; 
b = uicontrol ( 'Parent' ,H_STAB_OUT, . . . 

'Units ', 'points ' , ... 

'BackgroundColor' , [0.752941 0.752941 0.752941] 
'FontSize' ,18, ... 

'Position' , [58.5 375.75 322.5 18.75], ... 
'String', 'A Matrix of the form xdot=Ax+Bu', .. 
'Style' , ' text' , ... 

' Tag ' , ' StaticText2 ' ) ; 
b = uicontrol (' Parent ' ,H_STAB_OUT, ... 

'Units ', 'points ' , ... 

'BackgroundColor' , [0.752941 0.752941 0.752941] 
' FontSize' , 18 , ... 

'Position' , [85.5 92.25 92.25 18.75], ... 

'String', 'B Matrix', ... 

' Style' , ' text' , ... 

' Tag ' , ' StaticText2 ' ) ; 
b = uicontrol ( ' Parent' ,H_STAB_OUT, . . . 

'Units ', 'points ' , ... 

'Position' , [466.5 94.5 114.75 23.25], ... 
'String' , 'Coupled Response' , ... 

'Callback' , ' stab_out_l_f cn cr' , . . . 

' Tag ' , ' Pushbuttonl ' ) ; 
b = uicontrol (' Parent ', H_STAB_OUT, ... 

'Units ', 'points ' , ... 

'BackgroundColor' , [0.752941 0.752941 0.752941] 
'FontName' , 'arial' , ... 

' FontSize ' , 7 , ... 

'Position' , [12 355.5 45 15] , ... 

'String' ,A(1, 1) , ... 

'Style' , ' text' , ... 

' Tag ' , ' StaticTextl ' ) ; 
b = uicontrol ( 'Parent' ,H_STAB_OUT, ... 

'Units ', 'points ' , ... 

'BackgroundColor' , [0.752941 0.752941 0.752941] 
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' FontName ' , ' ar ial ' , ... 

' FontSize' , 7 , ... 

'Position' , [66 356.25 45 15], .. 

' String' ,A(1, 2) , ... 

' Style ' , ' text ' , ... 

' Tag ' , ' StaticTextl ' ) ; 
b = ui control ( ' Parent ' , H_STAB_OUT, . . . 
'Units ',' points ' , ... 

'FontName' , 'arial' , ... 

' FontSize' ,7, ... 

'Position' , [170.25 356.25 45 15] 
'String' ,A(1, 4) , ... 

' Style' , ' text' , ... 

' Tag ' , ' StaticTextl ' ) ; 
b = uicontrol (' Parent ', H_STAB_OUT, ... 
'Units ', 'points ' , ... 

'FontName' , 'arial' , ... 

' FontSize ' , 7 , ... 

'Position' , [118.5 356.25 45 15], 
' String' , A( 1, 3 ) , ... 

' Style ' , ' text ' , ... 

' Tag ' , ' StaticTextl ' ) ; 
b = uicontrol ( ' Parent ' , H_STAB_OUT, . . . 
' Units ' , 'points ' , ... 

' FontName ' , ' arial ' , ... 

' FontSize ' , 7 , ... 

'Position' , [327.75 356.25 45 15] 
' String' , A (1, 7 ) , ... 

' Style' , ' text' , ... 

'Tag' , ' StaticTextl ' ) ; 
b = uicontrol (' Parent ', H_STAB_OUT, ... 
' Units ', 'points ' , ... 

' FontName ' , ' arial ' , ... 

' FontSize ' , 7 , ... 

'Position' , [379.5 356.25 45 15], 
' String' , A(l, 8) , ... 

'Style' , 'text' , ... 

' Tag ' , ' StaticTextl ' ) ; 
b = uicontrol (' Parent ', H_STAB_OUT, ... 
'Units ', 'points ' , ... 

'FontName' , 'arial' , ... 

' FontSize' , 7 , ... 

'Position' , [275.25 356.25 45 15] 
' String' , A(l, 6) , ... 

' Style' , ' text' , ... 

'Tag' , 'StaticTextl' ) ; 
b = uicontrol (' Parent ', H_STAB_OUT, ... 
' Units ' , ' points ' , ... 

' FontName ' , ' arial ' , ... 

' FontSize' , 7 , ... 

'Position' , [222 356.25 45 15], . 

' String' , A(l, 5) , ... 

'Style' , 'text' , ... 

' Tag ' , ' StaticTextl ' ) ; 
b = uicontrol ( ' Parent' , H_STAB_OUT, . . . 
' Units ' , ' points ' , ... 

'FontName' , 'arial' , ... 
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' FontSize ' , 1 . ... 

'Position' , [222.75 330.75 45 15] 
' String' , A (2 , 5) , ... 

' Style' , ' text ' , ... 

'Tag' , ' StaticTextl ' ) ; 
b = uicontrol (' Parent ', H_STAB_OUT, ... 
'Units ', 'points ' , ... 

'FontName' , 'arial' , ... 

' FontSize ' , 7 , ... 

'Position' , [277.5 330.75 45 15], 
'String' ,A(2 , 6) , ... 

'Style' , 'text' , ... 

'Tag' , ' StaticTextl ' ) ; 
b = uicontrol (' Parent ', H_STAB_OUT, ... 
'Units ', 'points ' , ... 

' FontName ' , ' arial ' , ... 

' FontSize ' , 7 , ... 

'Position' , [379. 5 330.75 45 15], 
' String' , A (2 , 8 ) , ... 

'Style' , ' text' , ... 

'Tag' , 'StaticTextl' ) ; 
b = uicontrol ( ' Parent ' , H_STAB_OUT, . . . 
'Units ', 'points ' , ... 

'FontName' , 'arial' , ... 

' FontSize' , 7 , ... 

'Position' , [327.75 330.75 45 15] 
'String' , A(2, 7) , ... 

'Style' , ' text' , ... 

'Tag' , 'StaticTextl' ) ; 
b = uicontrol ( ' Parent ' , H_STAB_OUT, . . . 
'Units' , 'points ' , ... 

'FontName' , 'arial' , ... 

'FontSize' ,7, ... 

'Position' , [118.5 330.75 45 15], 
' String' , A (2 , 3 ) , ... 

'Style' , ' text' , ... 

' Tag ' , ' StaticTextl ' ) ; 
b = uicontrol ( ' Parent ' , H_STAB_OUT, . . . 
'Units ', 'points ' , ... 

'FontName' , 'arial ' , ... 

'FontSize' ,7, ... 

'Position' , [170.25 330.75 45 15] 
' String' , A (2 , 4) , ... 

' Style ' , ' text ' , ... 

'Tag' , ' StaticTextl ' ) ; 
b = uicontrol (' Parent' ,H_STAB_OUT, ... 
'Units ', 'points ' , ... 

' FontName ' , ' arial ' , ... 

'FontSize' , 7 , ... 

'Position' , [66 330.75 45 15], .. 

' String' , A(2 , 2) , ... 

' Style' , ' text ' , ... 

' Tag ' , ' StaticTextl ' ) ; 
b = uicontrol ( ' Parent ' , H_STAB_OUT, . . . 
'Units ', 'points ' , ... 

' FontName ' , ' arial ' , ... 

' FontSize' , 7 , ... 
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'Position' , [13 .5 330 45 15] , ... 

' String' , A (2 , 1) , ... 

' Style' , ' text' , ... 

' Tag ' , ' StaticTextl ' ) ; 
b = uicontrol (' Parent ', H_STAB_0UT, ... 
'Units ', 'points ' , ... 

' FontName ' , ' arial ' , ... 

' FontSize' , 1 , ... 

'Position' , [13 .5 307.5 45 15], . 

' String' , A (3 , 1) , ... 

' Style' , ' text' , ... 

' Tag' , ' StaticTextl ' ) ; 
b = uicontrol ( ' Parent' ,H_STAB_0UT, . . . 
'Units ', 'points ' , ... 

' FontName ' , ' arial ' , ... 

' FontSize ' , 7 , ... 

' Position' , [65 . 25 307.5 45 15], 

' String' , A (3 , 2 ) , ... 

' Style ' , ' text ' , ... 

'Tag' , 'StaticTextl' ) ; 
b = uicontrol ( ' Parent ' , H_STAB_0UT, . . . 
'Units ', 'points ' , ... 

' FontName ' , ' arial ' , ... 

' FontSize' , 7 , ... 

'Position' , [170.25 307.5 45 15], 
' String' , A{3 , 4) , ... 

' Style ' , ' text ' , ... 

'Tag' , 'StaticTextl' ) ; 
b = uicontrol (' Parent ' ,H_STAB_0UT, . . . 
'Units' , 'points' , ... 

' FontName' ,' arial ' , ... 

'FontSize' ,7, ... 

'Position' , [118.5 307.5 45 15], 

' String' , A(3 , 3 ) , ... 

' Style ' , ' text ' , ... 

' Tag ' , ' StaticTextl ' ) ; 
b = uicontrol (' Parent ', H_STAB_0UT, ... 
'Units ', 'points ' , ... 

' FontName ' , ' arial ' , ... 

'FontSize' ,7, ... 

'Position' , [327.75 307.5 45 15], 
'String' , A(3,7) , ... 

'Style ' , ' text ' , ... 

' Tag ' , ' StaticTextl ' ) ; 
b = uicontrol ( ' Parent' ,H_STAB_0UT, . . . 
'Units ', 'points ' , ... 

'FontName' , 'arial' , ... 

'FontSize' ,7, ... 

'Position' , [379.5 307.5 45 15], 
'String' , A(3 , 8) , ... 

' Style ' , ' text ' , ... 

'Tag' , ' StaticTextl ' ) ; 
b = uicontrol { ' Parent' ,H_STAB_0UT, . . . 
'Units' , 'points' , ... 

' FontName ' , ' arial ' , ... 

' FontSize ' , 7 , ... 

'Position' , [275.25 307.5 45 15], 



160 



' string' , A(3 , 6) , ... 

' Style ' , ' text ' , ... 

' Tag ' , ' StaticTextl ' ) ; 
b = uicontrol ( 'Parent' ,H_STAB_OUT, . . . 

' Units ' , ' points ' , ... 

' FontName ' , ' arial ' , ... 

' FontSize' , 1 , ... 

'Position' , [222 .75 307.5 45 15], 

' String ' , A ( 3 , 5 ) , ... 

' Style' , ' text' , ... 

'Tag' , 'StaticTextl' ) ; 
b = uicontrol ( ' Parent' ,H_STAB_OUT, . . . 

' Units ' , ' points ' , ... 

' FontName ' , ' arial ' , ... 

'FontSize' , 1 , ... 

'Position' , [222 .75 284.25 45 15], 
'String' , A(4, 5) , ... 

' Style' , ' text' , ... 

' Tag ' , ' StaticTextl ' ) ; 
b = uicontrol ( 'Parent' ,H_STAB_OUT, . . . 
'Units ', 'points ' , ... 

' FontName ' , ' arial ' , ... 

' FontSize' , 7 , ... 

'Position' , [275.25 284.25 45 15], 
'String' , A(4, 6) , ... 

' Style' , ' text' , ... 

'Tag' , 'StaticTextl' ) ; 
b = uicontrol ( 'Parent' ,H_STAB_OUT, . . . 
'Units' , 'points' , ... 

' FontName ' , ' arial ' , ... 

' FontSize ' , 7 , ... 

'Position' , [379.5 284.25 45 15], 
'String' , A (4, 8) , ... 

' Style' , ' text' , ... 

' Tag' , ' StaticTextl ' ) ; 
b = uicontrol ( 'Parent' ,H_STAB_OUT, . . . 
'Units ', 'points ' , ... 

'FontName' , 'arial' , ... 

' FontSize' , 7 , ... 

'Position' , [327.75 284.25 45 15], 
' String' ,A(4, 7) , ... 

' Style' , ' text' , ... 

' Tag ' , ' StaticTextl ' ) ; 
b = uicontrol ( ' Parent' , H_STAB_OUT, . . . 
'Units' , 'points' , ... 

' FontName ' , ' arial ' , ... 

' FontSize' , 7 , ... 

'Position' , [118.5 284.25 45 15], 

' String' , A(4, 3 ) , ... 

' Style' , ' text' , ... 

' Tag ' , ' StaticTextl ' ) ; 
b = uicontrol ( ' Parent ' , H_STAB_OUT, . . . 
'Units' , 'points' , ... 

' FontName ' , ' arial ' , ... 

' FontSize' , 7 , ... 

'Position' , [170.25 284.25 45 15], 
' String' , A(4, 4) , ... 
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' style ' , ' text ' , ... 

' Tag ' , ' StaticTextl ' ) ; 
b = uicontrol ( ' Parent' , H_STAB_OUT, . . . 
'Units 'points' , ... 

'FontNaine' , 'arial ' , ... 

' FontSize ' , 1 , ... 

'Position' , [66 284.25 45 15], .. 

' String' , A(4, 2) , ... 

'Style' , 'text' , ... 

'Tag' , 'StaticTextl' ) ; 
b = uicontrol ( ' Parent ' , H_STAB_OUT, . . . 
'Units ', 'points ' , ... 

' FontName ' , ' arial ' , ... 

' FontSize' , 7 , ... 

'Position' , [13.5 284.25 45 15], 

' String' , A(4, 1) , ... 

'Style' , ' text' , ... 

' Tag ' , ' StaticTextl ' ) ; 
b = uicontrol ( ' Parent ' , H_STAB_OUT, . . . 
'Units' , 'points' , ... 

'FontName' , 'arial' , ... 

' FontSize ' , 7 , ... 

'Position' , [13 .5 261.75 45 15], 

' String' , A(5, 1) , ... 

'Style' , 'text' , ... 

' Tag ' , ' StaticTextl ' ) ; 
b = uicontrol ( ' Parent ' , H_STAB_OUT, . . . 
'Units ', 'points ' , ... 

' FontName ' , ' arial ' , ... 

' FontSize' , 7 , ... 

'Position' , [66 261.75 45 15], .. 

' String' , A(5 , 2) , ... 

'Style' , 'text' , ... 

' Tag ' , ' StaticTextl ' ) ; 
b = uicontrol (' Parent ', H_STAB_OUT, ... 
'Units' , 'points' , ... 

' FontName ' , ' arial ' , ... 

'FontSize' ,7, ... 

'Position' , [170.25 261.75 45 15] 
' String ' , A ( 5 , 4 ) , ... 

' Style' , ' text' , ... 

' Tag ' , ' StaticTextl ' ) ; 
b = uicontrol ( ' Parent' , H_STAB_OUT, . . . 
'Units ', 'points ' , ... 

' FontName ' , ' arial ' , ... 

' FontSize' , 7 , ... 

'Position' , [118.5 261.75 45 15], 
' String' , A{ 5 , 3 ) , ... 

' Style ' , ' text' , ‘ . . . 

'Tag' , ' StaticTextl ' ) ; 
b = uicontrol ( ' Parent ' , H_STAB_OUT, . . . 
'Units' , 'points' , ... 

' FontName ' , ' arial ' , ... 

' FontSize' , 7 , ... 

'Position' , [327.75 261.75 45 15] 
' String' , A( 5 , 7 ) , ... 

' Style' , ' text ' , ... 
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' Tag ' , ' StaticTextl ' ) ; 
b = uicontrol ( ' Parent ' , H_STAB_OUT, . . . 

'Units 'points ' , ... 

' FontName ' , ' arial ' , ... 

' FontSize ' , 7 , ... 

'Position' , [379.5 261.75 45 15] , ... 

' String' , A{ 5 , 8) , ... 

' Style ' , ' text ' , ... 

'Tag' , 'StaticTextl' ) ; 
b = uicontrol (' Parent ', H_STAB_OUT, ... 

'Units ', 'points ' , ... 

' FontName ' , ' arial ' , ... 

' FontSize ' , 7 , ... 

'Position' , [275.25 261.75 45 15] , ... 

'String' , A(5 , 6) , ... 

' Style' , ' text' , ... 

'Tag' , ' StaticTextl ' ) ; 
b = uicontrol ( 'Parent' ,H_STAB_OUT, ... 

'Units' , 'points' , ... 

' FontName ' , ' arial ' , ... 

' FontSize ' , 1 , ... 

'Position' , [222.75 261.75 45 15] , ... 

'String' ,A{5, 5) , ... 

'Style' , ' text' , ... 

' Tag ' , ' StaticTextl ' ) ; 
b = uicontrol (' Parent ', H_STAB_OUT, ... 

'Units ', 'points ' , ... 

' FontName ' , ' arial ' , ... 

'FontSize' ,7, ... 

'Position' , [222 .75 237.75 45 15] , ... 

'String' ,A{6, 5) , ... 

' Style ' , ' text ' , ... 

' Tag ' , ' StaticTextl ' ) ; 
b = uicontrol ( 'Parent' ,H_STAB_OUT, ... 

'Units ', 'points ' , ... 

'FontName' , 'arial ' , ... 

' FontSize' , 7 , ... 

'Position' , [275.25 237.75 45 15] , ... 

' String' , A ( 6 , 6) , ... 

' Style ' , ' text ' , ... 

'Tag' , 'StaticTextl ' ) ; 
b = uicontrol ( 'Parent' ,H_STAB_OUT, . . . 

'Units ' , 'points ' , ... 

'BackgroundColor' , [0.752941 0.752941 0.752941], 
' FontName ' , ' arial ' , ... 

'FontSize' , 7 , ... 

'Position' , [379.5 237.75 45 15] , ... 

'String' ,A(6, 8) , ... 

'Style' , ' text' , ... 

' Tag ' , ' StaticTextl ' ) ; 
b = uicontrol {' Parent ', H_STAB_OUT, ... 

'Units ' , 'points ' , ... 

' FontName ' , ' arial ' , ... 

'FontSize' , 7 , ... 

'Position' , [327.75 237.75 45 15], ... 

' String' , A ( 6 , 7 ) , ... 

'Style' , 'text' , ... 
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'Tag' , ' StaticTextl ' ) ; 
b = ui control (' Parent ', H_STAB_OUT, ... 

'Units' , 'points' , ... 

' FontName ' , ' arial ' , ... 

' FontSize' , 7 , ... 

'Position' , [118.5 237.75 45 15] , ... 

' String' , A ( 6 , 3 ) , ... 

' Style' , ' text' , ... 

' Tag ' , ' StaticTextl ' ) ; 
b = uicontrol ( 'Parent' ,H_STAB_OUT, . . . 

'Units' , 'points' , ... 

' FontName ' , ' arial ' , ... 

' FontSize' , 1 , ... 

'Position' , [170.25 231 .15 45 15], ... 

'String' ,A(6, 4) , ... 

' Style' , ' text' , ... 

' Tag ' , ' StaticTextl ' ) ; 
b = uicontrol { 'Parent' ,H_STAB_OUT, . . . 

'Units' , 'points' , ... 

' FontName ' , ' arial ' , ... 

' FontSize ' , 7 , ... 

'Position' , [66 237.75 45 15] , ... 

' String' , A(6, 2) , ... 

' Style' , ' text' , ... 

' Tag ' , ' StaticTextl ' ) ; 
b = uicontrol (' Parent' ,H_STAB_OUT, ... 

' Units ', 'points ' , ... 

'FontName' , 'arial' , ... 

' FontSize' , 7 , ... 

'Position' , [13 .5 237.75 45 15] , ... 

' String' , A(6, 1) , ... 

' Style' , ' text' , ... 

' Tag ' , ' StaticTextl ' ) ; 
b = uicontrol ( 'Parent' ,H_STAB_OUT, . . . 

' Units ', 'points ' , ... 

' FontName ' , ' arial ' , ... 

' FontSize' , 7 , ... 

'Position' , [13 .5 215.25 45 15] , ... 

' String' , A(7 , 1) , ... 

'Style' , 'text' , ... 

' Tag ' , ' StaticTextl ' ) ; 
b = uicontrol (' Parent ' ,H_STAB_0UT, ... 

' Units ',' points ' , ... 

' FontName ' , ' arial ' , ... 

' FontSize' , 7 , ... 

'Position' , [66 215.25 45 15] , ... 

' String' , A (7 , 2 ) , ... 

' Style ' , ' text ' , ... 

' Tag ' , ' StaticTextl ' ) ; 
b = uicontrol ( ' Parent ' , H_STAB_OUT, . . . 

' Uni ts ',' points ' , ... 

'BackgroundColor' , [0.752941 0.752941 0.752941], 
'FontName' , 'arial' , ... 

' FontSize' , 7 , ... 

'Position' , [170 .25 215.25 45 15] , ... 

'String' ,A(7, 4) , ... 

' Style' , ' text ' , ... 
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'Tag' , ' StaticTextl ' ) ; 
b = uicontrol ( ' Parent' , H_STAB_OUT, . . . 

'Units 'points ' , ... 

' FontName ' , ' arial ' , ... 

' FontSize' , 7 , ... 

'Position' , [118.5 215.25 45 15], ... 

' String' , A (7 , 3 ) , ... 

' Style' , ' text' , ... 

' Tag ' , ' StaticTextl ' ) ; 
b = uicontrol ( ' Parent ' , H_STAB_OUT, . . . 

'Units' , 'points' , ... 

'FontName' , 'arial' , ... 

' FontSize' , 7 , ... 

'Position' , [327.75 215.25 45 15] , ... 

' String' , A(7 , 7 ) , ... 

' Style' , ' text' , ... 

' Tag ' , ' StaticTextl ' ) ; 
b = uicontrol ( ' Parent' , H_STAB_OUT, . . . 

'Units' , 'points' , ... 

'FontName' , 'arial' , ... 

'FontSize' ,7, "... 

'Position' , [379.5 215.25 45 15] , ... 

'String' ,A(7, 8) , ... 

' Style' , ' text' , ... 

'Tag' , 'StaticTextl' ) ; 
b = uicontrol (' Parent ' ,H_STAB_OUT, . . . 

'Units ' , 'points ' , ... 

'BackgroundColor' , [0.752941 0.752941 0.752941], ... 

' FontName ' , ' arial ' , ... 

' FontSize' , 7 , ... 

'Position' , [275.25 215.25 45 15] , ... 

'String' , A{7, 6) , ... 

' Style' , ' text' , ... 

'Tag' , 'StaticTextl' ) ; 
b = uicontrol ( ' Parent ' , H_STAB_0UT, . . . 

'Units' , 'points' , ... 

' FontName ' , ' arial ' , ... 

'FontSize' ,7, ... 

'Position' , [222 .75 215.25 45 15] , ... 

' String' , A{7 , 5) , ... 

' Style' , ' text' , ... 

'Tag' , 'StaticTextl' ) ; 
b = uicontrol (' Parent ' ,H_STAB_OUT, . . . 

'Units' , 'points' , ... 

' FontName ' , ' arial ' , ... 

' FontSize ' , 7 , ... 

'Position' , [222 .75 194.25 45 15] , ... 

' String' , A{8 , 5) , ... 

' Style ' , ' text ' , ... 

'Tag' , 'StaticTextl' ) ; 
b = uicontrol (' Parent' ,H_STAB_OUT, ... 

'Units' , 'points' , ... 

' FontName ' , ' arial ' , ... 

'FontSize' ,7, ... 

'Position' , [275.25 193.5 45 15] , ... 

'String' ,A{8, 6) , ... 

'Style' , ' text' , ... 
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' Tag ' , ' StaticTextl ' ) ; 
b = ui control ( ' Parent ' , H_STAB_OUT, . . . 

'Units' , 'points' , ... 

'FontName' , 'arial' , ... 

' FontSize ' , 7 , ... 

'Position' , [379.5 193.5 45 15] , ... 

' String' , A(8, 8) , ... 

'Style' , 'text' , ... 

' Tag ' , ' StaticTextl ' ) ; 
b = uicontrol ( ' Parent' , H_STAB_OUT, . . . 

'Units' , 'points' , ... 

'FontName' , 'arial' , ... 

' FontSize' , 7 , ... 

'Position' , [327 .75 193.5 45 15] , ... 

' String' , A(8, 7) , ... 

' Style' , ' text' , ... 

' Tag ' , ' StaticTextl ' ) ; 
b = uicontrol ( ' Parent ' , H_STAB_OUT, . . . 

'Units' , 'points' , ... 

' FontName ' , ' arial ' , ... 

' FontSize' , 7 , ... 

'Position' , [118.5 193.5 45 15] , ... 

' String' , A(8, 3) , ... 

' Style' , ' text' , ... 

' Tag' , ' StaticTextl ' ) ; 
b = uicontrol ( ' Parent ' , H_STAB_OUT, . . . 

'Units' , 'points' , ... 

' FontName ' , ' arial ' , ... 

' FontSize' , 1 , ... 

'Position' , [170.25 193.5 45 15] , ... 

' String' , A (8, 4) , ... 

' Style ' , ' text ' , ... 

' Tag ' , ' StaticTextl ' ) ; 
b = uicontrol (' Parent ', H_STAB_OUT, ... 

'Units' , 'points' , ... 

' FontName ' , ' arial ' , ... 

' FontSize ' , 1 , ... 

'Position' , [66 193.5 45 15] , ... 

' String' , A ( 8 , 2 ) , ... 

' Style' , ' text' , ... 

'Tag' , 'StaticTextl' ) ; 
b = uicontrol ( ' Parent ' , H_STAB_OUT, . . . 

'Units' , 'points' , ... 

'BackgroundColor' , [0.752941 0.752941 0.752941], 
'FontName' , 'arial' , ... 

' FontSize ' , 1 , ... 

'Position' , [13 .5 192.75 45 15] , ... 

'String' ,A(8, 1) , ... 

' Style' , ' text ' , ... 

' Tag' , ' StaticTextl ' ) ; 
b = uicontrol (' Parent ', H_STAB_OUT, ... 

'Units' , 'points' , ... 

'Position' , [466.5 14.25 114.75 23.25], ... 

'String' , 'Modify Inputs and Retrim' , ... 

'Callback' , ' stab_out_l_fcn modin' , . . . 

'Tag' , ' Pushbuttonl ' ) ; 
b = uicontrol ( ' Parent ' , H_STAB_OUT, . . . 
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'Units 'points ' , ... 

'BackgroundColor' , [0.752 941 0.752941 0.752941] 
' FontName' , ' arial ' , ... 

' FontSize' ,1 , ... 

'Position' , [220.5 3 45 15] , ... 

' String' , B (8 , 1) , ... 

' Style' , ' text' , ... 

'Tag' , 'StaticTextl' ) ; 
b = uicontrol (' Parent ', H_STAB_OUT, ... 

'Units' , 'points' , ... 

' FontName ' , ' arial ' , ... 

' FontSize' ,1 , ... 

'Position' , [273 3.75 45 15] , ... 

' String' , B (8 , 2 } , ... 

' Style' , ' text' , ... 

'Tag' , 'StaticTextl' } ; 
b = uicontrol ( 'Parent' ,H_STAB_OUT, . . . 

'Units' , 'points' , ... 

' FontName' , ' arial ' , ... 

' FontSize' , 7 , ... 

'Position' , [377.25 3.75 45 15], ... 

'String' ,B( 8,4} , ... 

' Style ' , ' text ' , ... 

'Tag' , 'StaticTextl' ) ; 
b = uicontrol (' Parent ' ,H_STAB_OUT, . . . 

'Units ', 'points ' , ... 

' FontName ' , ' arial ' , ... 

' FontSize' , 7 , ... 

'Position' , [325.5 3.75 45 15] , ... 

' String' , B (8 , 3 ) , ... 

' Style' , ' text' , ... 

'Tag' , 'StaticTextl' ) ; 
b = uicontrol (' Parent ', H_STAB_0UT, ... 

'Units' , 'points' , ... 

' FontName' ,' arial ' , ... 

' FontSize' , 7 , ... 

'Position', [325.5 25.5 45 15], ... 

' String' , B (7 , 3 ) , ... 

' Style' , ' text ' , ... 

' Tag ' , ' StaticTextl ' ) ; 
b = uicontrol { 'Parent' ,H_STAB_0UT, ... 

'Units ', 'points ' , ... 

'BackgroundColor' , [0.752941 0.752941 0.752941] 
' FontName' , ' arial ' , ... 

' FontSize' , 7 , ... 

'Position' , [377 .25 25.5 45 15] , ... 

' String' ,B{7, 4) , ... 

'Style' , ' text' , ... 

'Tag' , 'StaticTextl' ) ; 
b = uicontrol {' Parent' ,H_STAB_0UT, ... 

'Units' , 'points' , ... 

'FontName' , 'arial' , ... 

' FontSize' , 7 , ... 

'Position' , [273 25.5 45 15] , ... 

' String' , B (7 , 2 ) , ... 

' Style' , ' text ' , ... 

'Tag' , 'StaticTextl' ) ; 
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b = ui control ( ' Parent ' , H_STAB_OUT, 
'Units' , 'points' , ... 

' FontName ' , ' arial ' , ... 

' FontSize' , 1 , ... 

'Position' , [220.5 25.5 45 15] 
' String' , B (7 , 1) , ... 

' Style' , ' text ' , ... 

' Tag ' , ' StaticTextl ' ) ; 
b = uicontrol ( ' Parent ' , H_STAB_OUT, 

' Units ', 'points ' , ... 

' FontName' arial ' , ... 

' FontSize' ,7, ... 

'Position' , [220.5 48 45 15], 

' String ',B(6,1), ... 

' Style' , ' text' , ... 

' Tag ' , ' StaticTextl ' ) ; 
b = uicontrol { ' Parent ' , H_STAB_0UT, 
'Units' , 'points ' , ... 

' FontName ' , ' arial ' , ... 

' FontSize ' , 7 , ... 

'Position' , [273 48 45 15], .. 

' String ' , B ( 6 , 2 ) , ... 

' Style' , ' text' , ... 

' Tag ' , ' StaticTextl ' ) ; 
b = uicontrol {' Parent ', H_STAB_OUT, 
'Units' , 'points' , ... 

' FontName' ,' arial ' , ... 

' FontSize' ,7, ... 

'Position' , [377.25 48 45 15], 
' String ',B(6,4), ... 

' Style ' , ' text ' , ... 

'Tag' , 'StaticTextl' ) ; 
b = uicontrol ( ' Parent ' , H_STAB_0UT , 
'Units' , 'points' , ... 

' FontName ' , ' arial ' , ... 

' FontSize ' , 7 , ... 

'Position' , [325.5 48 45 15], 

' String ',B(6,3), ... 

' Style' , ' text ' , ... 

' Tag ' , ' StaticTextl ' } ; 
b = uicontrol { ' Parent ' , H_STAB_OUT, 
'Units' , 'points' , ... 

' FontName ',' arial ' , ... 

' FontSize ' , 7 , ... 

'Position' , [325.5 72 45 15], 
'String' , B(5, 3) , ... 

' Style' , ' text ' , ... 

'Tag' , 'StaticTextl' ) ; 
b = uicontrol {' Parent ', H_STAB_OUT, 

' Units ' , ' points ' , ... 

'FontName' , 'arial' , ... 

' FontSize' , 7 , ... 

'Position' , [377.25 72 45 15], 
'String' ,B(5,4) , ... 

' Style' , ' text ' , ... 

' Tag ' , ' StaticTextl ' ) ; 
b = uicontrol ( ' Parent ' , H_STAB_OUT, 



'Units 'points ' , ... 

' FontName ' , ' arial ' , ... 

' FontSize' , 1 , ... 

' Position ', [273 72 45 15], ... 

' String' , B (5 , 2 ) , ... 

' Style' , ' text' , ... 

' Tag ' , ' StaticTextl ' ) ; 
b = uicontrol ( 'Parent' ,H_STAB_OUT, . . . 
'Units' , 'points' , ... 

' FontName ' , ' arial ' , ... 

' FontSize ' , 7 , ... 

'Position' , [220.5 72 45 15] , ... 

' String' , B(5 , 1) , ... 

' Style ' , ' text ' , ... 

' Tag ' , ' StaticTextl ' ) ; 
b = uicontrol ( ' Parent ' , H_STAB_OUT, . . . 
'Units' , 'points' , ... 

' FontName ' , ' arial ' , ... 

' FontSize' , 7 , ... 

'Position' , [220.5 94.5 45 15], . 

' String' , B{4 , 1) , ... 

' Style' , ' text ' , ... 

' Tag ' , ' StaticTextl ' ) ; 
b = uicontrol ( ' Parent ' , H_STAB_OUT, . . . 
'Units ', 'points ' , ... 

' FontName ' , ' arial ' , ... 

' FontSize ' , 7 , ... 

' Position' , [273 94.5 45 15], ... 
' String' , B (4 , 2) , ... 

' Style ' , ' text ' , ... 

'Tag' , ' StaticTextl' ) ; 
b = uicontrol ( 'Parent' ,H_STAB_OUT, . . . 
'Units' , 'points' , ... 

' FontName ' , ' arial ' , ... 

' FontSize ' , 7 , ... 

'Position' , [377 .25 94.5 45 15], 
'String' ,B(4, 4) , ... 

'Style' , ' text' , ... 

' Tag ' , ' StaticTextl ' ) ; 
b = uicontrol ( ' Parent' ,H_STAB_0UT, . . . 
'Units' , 'points' , ... 

' FontName ' , ' arial ' , ... 

' FontSize ' , 7 , ... 

'Position' , [325.5 94.5 45 15], . 
' String' , B (4 , 3 ) , ... 

' Style' , ' text ' , ... 

' Tag' , ' StaticTextl ' ) ; 
b = uicontrol ( ' Parent ' , H_STAB_0UT, . . . 
' Units ' , ' points ' , ... 

' FontName ' , ' arial ' , ... 

' FontSize ' , 7 , ... 

'Position' , [325.5 117.75 45 15], 
'String' , B (3 , 3 ) , ... 

' Style' , ' text' , ... 

' Tag ' , ' StaticTextl ' ) ; 
b = uicontrol ( ' Parent ' ,H_STAB_0UT, . . . 
'Units' , 'points' , ... 
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'FontName' , 'arial' , ... 

' FontSize ' , 1 , ... 

'Position' , [377.25 117.75 45 15] 
' String' , B (3 , 4) , ... 

' Style ' , ' text ' , ... 

'Tag' , ' StaticTextl ' ) ; 
b = uicontrol (' Parent ', H_STAB_OUT, ... 
' Units ', 'points ' , ... 

' FontName' , 'arial' , ... 

' FontSize ' , 7 , ... 

'Position' , [272.25 117.75 45 15] 
'String' ,B (3,2) , ... 

' Style' , ' text' , ... 

' Tag ' , ' StaticTextl ' ) ; 
b = uicontrol ( ' Parent ' , H_STAB_OUT, . . . 
'Units ', 'points' , ... 

' FontName ' , ' arial ' , ... 

' FontSize ' , 1 , ... 

'Position' , [220.5 117.75 45 15], 
' String' , B (3 , 1) , ... 

' Style ' , ' text ' , ... 

'Tag' , 'StaticTextl' ) ; 
b = uicontrol { ' Parent ' , H_STAB_OUT, . . . 
' Units ' , ' points ' , ... 

' FontName ' , ' arial ' , ... 

' FontSize ' , 7 , ... 

'Position' , [220.5 140.25 45 15], 
' String' , B (2 , 1) , ... 

' Style' , ' text' , ... 

' Tag ' , ' StaticTextl ' ) ; 
b = uicontrol (' Parent' ,H_STAB_0UT, ... 
'Units' , 'points' , ... 

'FontName' , 'arial' , ... 

' FontSize' , 7 , ... 

'Position' , [273 141 45 15] , ... 
'String' ,B(2, 2) , ... 

' Style ' , ' text ' , ... 

'Tag' , 'StaticTextl' ) ; 
b = uicontrol ( 'Parent' ,H_STAB_OUT, . . . 
' Units ' , ' points ' , ... 

' FontName ' , ' arial ' , ... 

' FontSize ' , 7 , ... 

'Position' , [377.25 141 45 15], . 

' String' , B (2 , 4) , ... 

' Style ' , ' text ' , ... 

' Tag ' , ' StaticTextl ' ) ; 
b = uicontrol {' Parent ' ,H_STAB_0UT, . . . 
'Units' , 'points' , ... 

' FontName ' , ' arial ' , ... 

' FontSize' , 7 , ... 

'Position' , [325.5 141 45 15], .. 

' String' , B (2 , 3 ) , ... 

'Style ' , ' text ' , ... 

'Tag' , 'StaticTextl' ) ; 
b = uicontrol (' Parent ', H_STAB_OUT, ... 
'Units' , 'points' , ... 

' FontName ' , ' arial ' , ... 
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' FontSize ' , 7 , ... 

'Position' , [325.5 166.5 45 15] , ... 

'String' ,B(1, 3) , ... 

' Style' , ' text ' , ... 

'Tag' , ' StaticTextl ' ) ; 
b = uicontrol ( ' Parent ' ,H_STAB_OUT, . . . 

'Units 'points ' , ... 

' FontName ' , ' arial ' , ... 

' FontSize' , 7 , ... 

'Position' , [377.25 166.5 45 15], ... 

'String' ,B(1, 4) , ... 

' Style' , ' text' , ... 

'Tag' , 'StaticTextl' ) ; 
b = uicontrol (' Parent ', H_STAB_OUT, ... 

'Units' , 'points' , ... 

'BackgroundColor' , [0.752941 0.752941 0.752941] 
' FontName ' , ' arial ' , ... 

'FontSize' , 7 , ... 

'Position' , [273 166.5 45 15] , ... 

'String' ,B(1, 2) , ... 

' Style' , ' text' , ... 

'Tag' , 'StaticTextl' ) ; 
b = uicontrol (' Parent ', H_STAB_OUT, ... 

'Units' , 'points' , ... 

'BackgroundColor' , [0 .752941 0.752941 0.752941] 
' FontName ',' arial ' , ... 

' FontSize' , 7 , ... 

'Position' , [219 165.75 45 15] , ... 

' String' , B(l, 1) , ... 

' Style ' , ' text ' , ... 

' Tag ' , ' StaticTextl ' ) ; 

%%%%%%%%%% 

b = uicontrol (' Parent ', H_STAB_OUT, ... 

'Units ', 'points ' , ... 

'BackgroundColor' , [0.752941 0.752941 0.752941] 
' FontSize' , 18 , ... 

'Horizontal Alignment' , ' left' , ... 

'Position' , [449.25 348.75 23.25 27.75], ... 

' String' , ' x= ' , ... 

'Style' , 'text' , ... 

' Tag ' , ' StaticText3 ' ) ; 
b = uicontrol { 'Parent' ,H_STAB_OUT, . . . 

'Units ', 'points ' , ... 

'BackgroundColor' , [0.752941 0.752941 0.752941] 
'FontSize' , 18 , ... 

' HorizontalAlignment ' , 'left' , ... 

'Position' , [508.5 354.75 32.25 22.5], ... 

' String' , 'u= ' , ... 

' Style' , ' text' , ... 

'Tag' , ' StaticText3 ' ) ; 
b = uicontrol ( ' Parent ' , H_STAB_OUT, . . . 

'Units ', 'points ' , ... 

'BackgroundColor' , [0 .752941 0.752941 0.752941] 
' FontSize' , 18 , ... 

'HorizontalAlignment' , 'left' , ... 
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'Position' , [449.25 295.5 23.25 23.25], ... 

' String' , 'w' , ... 

' Style' , ' text ' , ... 

' Tag ' , ' StaticText4 ' ) ; 
b = uicontrol { 'Parent' ,H_STAB_OUT, . . . 

'Units' , 'points' , ... 

'BackgroundColor' , [0 .752941 0.752941 0.752941] 
' FontSize' , 18 , ... 

' HorizontalAlignment ' , ' lef t ' , ... 

'Position' , [449.25 269.25 23.25 23.25], ... 

' String' , 'q' , ... 

' Style' , ' text ' , ... 

'Tag' , 'StaticText4' ) ; 
b = uicontrol { ' Parent' , H_STAB_OUT, . . . 

'Units' , 'points' , ... 

'BackgroundColor' , [0.752941 0.752941 0.752941] 
' FontSize' , 18 , ... 

' HorizontalAlignment ',' lef t ' , ... 

'Position' , [449.25 242.25 41.25 23.25], ... 

' String ' , ' theta ' , ... 

' Style ' , ' text ' , ... 

' Tag ' , ' StaticText4 ' ) ; 
b = uicontrol ( 'Parent' ,H_STAB_OUT, . . . 

'Units' , 'points' , ... 

' FontSize' , 18 , ... 

'HorizontalAlignment ',' left ' , ... 

'Position' , [449.25 162 34.5 23.25], ... 

' String' , 'phi ' , ... 

' Style' , ' text ' , ... 

'Tag' , 'StaticText4' ) ; 
b = uicontrol ( 'Parent' ,H_STAB_OUT, . . . 

'Units ', 'points ' , ... 

'FontSize' ,18, ... 

' HorizontalAlignment ',' lef t ' , ... 

'Position' , [449.25 189 23.25 23.25], ... 

' String' , 'p' , ... 

' Style ' , ' text ' , ... 

' Tag ' , ' StaticText 4 ' ) ; 
b = uicontrol ( ' Parent' , H_STAB_OUT, . . . 

'Units ', 'points ' , ... 

'BackgroundColor' , [0.752 941 0.752941 0.752941] 
' FontSize' , 18 , ... 

' HorizontalAlignment ',' lef t ' , ... 

'Position' , [449.25 215.25 23.25 23.25], ... 

' String ' , ' v' , ... 

' Style ' , ' text ' , ... 

' Tag ' , ' StaticText4 ' ) ; 
b = uicontrol ( ' Parent' , H_STAB_OUT, . . . 

' Units ' , ' points ' , ... 

'BackgroundColor' , [0.752941 0.752941 0.752941] 
' FontSize' , 18 , . . . 

'HorizontalAlignment ',' lef t ' , ... 

'Position' , [449.25 136.5 23.25 23.25], ... 

'String' , 'r] ' , ... 

' Style ' , ' text ' , ... 

'Tag' , 'StaticText4 ' ) ; 
b = uicontrol ( ' Parent' , H_STAB_OUT, . . . 
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'Units' , 'points' , ... 

'BackgroundColor' , [0.752941 0.752941 0.752941] 
' FontSize ' , 18 , ... 

' HorizontalAlignment ' , ' lef t ' , ... 

'Position' , [508.5 243 50.25 23.25], ... 

'String' , 'pedal] ' , ... 

'Style' , 'text' , ... 

'Tag' , ' StaticText4 ' ) ; 
b = uicontrol{ 'Parent' ,H_STAB_OUT, ... 

'Units ' , 'points ' , ... 

'BackgroundColor' , [0.752941 0.752941 0.752941] 
' FontSize ' , 18 , ... 

'HorizontalAlignment' , 'left' , ... 

'Position' , [508.5 269.25 59.25 23.25], ... 

' String' ,' lat . eye.', ... 

' Style ' , ' text ' , ... 

'Tag' , ' StaticText4 ' ) ; 
b = uicontrol {' Parent ' ,H_STAB_OUT, . . . 

'Units' , 'points' , ... 

'BackgroundColor ', [0.752941 0.752941 0.752941] 
' FontSize ' , 18 , ... 

'HorizontalAlignment ',' lef t ' , ... 

'Position' , [508.5 296.25 50.25 23.25], ... 

' String' , 'col . ' , ... 

' Style ' , ' text' , ... 

' Tag ' , ' StaticText4 ' ) ; 
b = uicontrol {' Parent ', H_STAB_OUT, ... 

'Units ', 'points ' , ... 

'BackgroundColor' , [0.752941 0.752941 0.752941] 
' FontSize' , 18 , ... 

'HorizontalAlignment ',' lef t ' , ... 

'Position' , [449 .25 322.5 23.25 23.25], ... 

' String' , ' [u' , ... 

' Style ' , ' text ' , ... 

'Tag' , ' StaticText4 ' ) ; 
b = uicontrol ( ' Parent ' , H_STAB_OUT, . . . 

'Units' , 'points' , ... 

'BackgroundColor ', [0.752941 0.752941 0.752941] 
' FontSize ' , 18 , ... 

'HorizontalAlignment ',' left ' , ... 

'Position' , [508.5 323.25 83.25 23.25], ... 

' String' ,' [long, eye.', ... 

' Style ' , ' text ' , ... 

'Tag' , ' StaticText4 ' ) ; 
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25. stab_out_l_fcn.m 

function stab_out_l_fcn (Action) 

% Switchyard Callback function for stab_out_l .m 

% Written for JANRAD version 6.0 by LT David A. 

global S_STAB_INPUT_1 S_STAB_INPUT_2 S_PERF_INPUT 

COUNT H_TF_RESP . . . 

H_STAB_OUT 

if isempty (nargin) 
return 

end 

switch Action 

case 'cr' 

time_freq_resp 
close (H_STAB_OUT) 
return 

case 'save' 
sc_save 
return 

case 'modin' 

COUNT=l; 

perfonnance_input 
close (H_STAB_OUT) 
return 



case 'print' 

set(gcf, ' PaperOrientation' , 'landscape' ) 
set (gcf , ' PaperPosition' , [ . 5 .5 10 7,5]) 
print -dwinc 

case 'return' 
j anrad9 8 
close all 

case 'quit' 
quit_gui 

case 'about' 

about_j anrad 

case ' delta__input ' 
performance_input 



end 



Heathorn 

S_PERF_OUTPUT A B 



174 



26. stability_and_controI.ni 

function stability_and_control ( ) 

% JANRAD 98 VERSION 6.0 

% This is the machine-generated representation of a Handle Graphics 
object 

% and its children. Note that handle values may change when these 
objects 

% are re-created. This may cause problems with any callbacks written to 
% depend on the value of the handle at the time the object was saved. 

% 

% To reopen this object, just type the name of the M-file at the MATLAB 
% prompt. The M-file and its associated MAT-file must be on your path. 

% Warning screen to indicate that Performance Module must be run before 
% Stability and Control Analysis can be performed. 

% Written for Janrad version 6.0 by LT David A. Heathorn 

load stability_and_control 

a = figure ( 'Units 'normalized' , ... 

'Color' ,[0.80.80.8], ... 

'Colormap' ,mat0 , ... 

'MenuBar' , 'none' , ... 

'Name' , 'Stability and Control Error' , ... 

'NumberTitle' , 'off' , ... 

' PointerShapeCData ' , matl , ... 

'Position' , [0.190625 0.383333 0.446875 0.34375], ... 

' Tag' , ' Figl ' ) ; 

b = uicontrol (' Parent ', a, ... 

'Units' , 'normalized' , ... 

'BackgroundColor' , [0.752941 0.752941 0.752941], ... 

'Position' , [0.013986 ,0.0363636 0.972028 0.933333], ... 

' Style ' , ' frame ' , ... 

'Tag' , 'Framel' ) ; 



b = uicontrol (' Parent ', a, ... 

'Units' , 'normalized' , ... 

'Callback' , 'close(gcf) ' , ... 

' FontSize' , 14 , ... 

'FontWeight' , 'bold' , ... 

'Position' , [0.388112 0.109091 0.202797 0.181818], ... 

' String' , 'OK' , ... 

'Tag' , ' Pushbuttonl ' ) ; 
b = uicontrol (' Parent ', a, ... 

'Units' , 'normalized' , ... 

'BackgroundColor' , [0.752941 0.752941 0.752941], ... 

'FontSize' , 12 , ... 

'FontWeight' , 'bold' , ... 

'Position' , [0.0839161 0.515152 0.811189 0.345455], ... 

' String' ,' Stability and Control can only be run after the Performance 
Function' , ... 

' Style ' , ' text ' , ... 
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'Tag' , ' StaticTextl ' ) ; 
b = uicontrol (' Parent ', a, ... 

'Units ', 'normalized' , ... 

'BackgroundColor' , [0.752941 0.752941 0.752941], 
'FontSize' , 12, . . . 

' FontWeight ' , 'bold' , ... 

'Position' , [0.332168 0.357576 0.318182 0.127273] 
' String ' , ' SORRY ! ' , ... 

' Style' , ' text' , ... 

'Tag' , ' StaticText2 ' ) ; 
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27. stability_controI_input_l.m 



function stability_control_input_l ( ) 

% GUI window to display and/or edit input 

% This is the machine-generated representation of a Handle Graphics 
object 

% and its children. Note that handle values may change when these 
objects 

% are re-created. This may cause problems with any callbacks written to 
% depend on the value of the handle at the time the object was saved. 

% 

% To reopen this object, just type the name of the M-file at the MATLAB 
% prompt. The M-file and its associated MAT-file must be on your path. 

% First GUI screen to input stability and control paramaters . 

% Written for JANRAD version 6.0 by LT David A. Heathorn 

load stability_control_input_l 

global H_STAB_IN1 S_STAB_INPUT_1 S_STAB_INPUT NAME S_SC_INPUT_1 

if -isempty (NAME) 

eval(['load ',NAME]) 
unstructure_stab_input 
s t rue tur e_s t ab_inpu t_l 

else 

load create_new_stab 
s t ru c t u r e_s t ab_i npu t_l 

end 

H_STAB_IN1 = figure ( 'Units' , 'normalized' , ... 

'Color' ,[0.80.80.8], ... 

'Colormap' ,mat0, ... 

'CreateFcn' , 'global MESH_VAL, MESH_VAL=0; ; ' , ... 

'Name ',' Stability and Control Parameters page 1', ... 

'NumberTitle' , ' of f ' , ... 

' PointerShapeCData ' , matl , ... 

'Position' , [0.0025 0.0466667 0.9975 0.89], ... 

' Tag' , ' Fig2 ' ) ; 

b = uicontrol ( ' Parent ' , H_STAB_IN1, . . . 

'Units ', 'noirmalized' , ... 

'BackgroundColor' , [0.752941 0.752941 0.752941], ... 

'Position' , [0.0100251 0.513109 0.318296 0.385768], ... 

' Style ' , ' frame ' , ... 

' Tag' , ' Framel ' ) ; 

b = uicontrol (' Parent ' ,H_STAB_IN1, . . . 

'Units ',' normalized' , ... 

'BackgroundColor' , [0.752941 0.752941 0.752941], ... 

'Position' , [0.0100251 0.011236 0.317043 0.490637], ... 

' Style ' , ' frame ' , ... 

'Tag' , 'Frame2' ) ; 

b = uicontrol (' Parent ' ,H_STAB_IN1, . . . 

' Units ',' normalized' , ... 

'BackgroundColor' , [0.752941 0.752941 0.752941], ... 

'Position' , [0.338346 0.187266 0.322055 0.71161], ... 
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' style ' , ' frame ' , ... 

' Tag' , ' Frame! ' ) ; 

b = uicontrol (' Parent H_STAB_IN1 , ... 

' Units normalized' , ... 

'BackgroundColor' , [0.752941 0.752941 0.752941], ... 
'Position' , [0.679198 0.0674157 0.309524 0.835206], ... 

' Style ' , ' frame ' , ... 

' Tag ' , ' Frame4 ' ) ; 

b = uimenu ( ' Parent ' , H_STAB_IN1 , ... 

' Label ' , ' JANRAD Options ' , ... 

' Tag ' , ' uimenul ' ) ; 
c = uimenu (' Parent ', b, ... 

'Callback' , 'performance_input_fcn quit' , ... 

'Label' , 'Quit JANRAD' , ... 

' Tag' , ' JANRAD Opt ions Subuimenul ' ) ; 
c = uimenu (' Parent ', b, ... 

'Callback' , 'performance_input_fcn return' , ... 

' Label ',' Return to Begining' , ... 

'Tag' , 'JANRAD OptionsSubuimenul ' ) ; 
c = uimenu { ' Parent ' , b, ... 

'Callback' , ' perf ormance_input_f cn delta_input' , ... 

' Enable' , ' of f ' , ... 

'Label' , 'Change Input Parameters' , ... 

' Tag ' , ' Subuimenul ' ) ; 
c = uimenu (' Parent ', b, ... 

'Callback' , 'performance_input_fcn about' , ... 

'Label' , 'About Janrad 98 . . . ' , ... 

' Separator ',' on' , ... 

' Tag ' , ' Subuimenul ' ) ; 
b = uicontrol {' Parent ', H_STAB_IN1 , ... 

'Units' , 'normalized' , ... 

'BackgroundColor' , [0.752941 0.752941 0.752941], ... 

' FontSize ' , 14 , ... 

' FontWeight ' , 'bold' , ... 

'Position' , [0.122807 0.917603 0.763158 0.0692884], ... 

'String' , 'STABILITY AND CONTROL PARAMETERS (PAGE 1 OF 2)', 
' Style' , ' text' , ... 

' Tag ' , ' StaticText! ' ) ; 
b = uicontrol ( ' Parent ' , H_STAB_IN1 , ... 

'Units' , 'normalized' , ... 

'BackgroundColor' , [0.752941 0.752941 0.752941], ... 

' FontSize' ,14, ... 

'FontWeight' , 'bold' , ... 

'Position' , [0.0175439 0.805243 0.294486 0.0898876], ... 

'String' , 'MAIN ROTOR PARAMETERS' , ... 

'Style' , 'text' , ... 

'Tag' , ' StaticTextl ' ) ; 
b = uicontrol ( 'Parent' ,H_STAB_IN1, ... 

'Units' , 'normalized' , ... 

'BackgroundColor' , [0.752941 0.752941-0.752941], ... 

'Position' , [0.0197109 0.75 0.17477 0.0538462], ... 

' String' ,' Flapping Moment of Inertia ( slug-f t^2 ) ' , ... 

' Style' , ' text' , ... 

' Tag' , ' StaticText2 ' ) ; 
b = uicontrol (' Parent ', H_STAB_IN1 , ... 

'Units' , 'normalized' , ... 
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'BackgroundColor ' ,[111], ... 

'Callback' , ' Ib=get (gcbo , ' 'String' ' ) ; S_STAB_INPUT_1 . Ib=str2num ( Ib) ; 

'Position' , [0.215506 0.751923 0.0985545 0.0480769], ... 

' String' , Ib, . . . 

' Style ' , ' edit ' , ... 

'Tag' , 'EditTextl' ) ; 

b = uicontrol ( ' Parent ' , H_STAB_IN1 , ... 

'Units' , 'normalized' , ... 

'BackgroundColor' , [0.752941 0.752941 0.752941], ... 

'Position' , [0.0197109 0.694231 0.17477 0.0538462], ... 

'String' , 'Hub Height Above Waterline (ft) ' , ... 

'Style' , ' text' , ... 

' Tag ' , ' StaticText2 ' ) ; 
b = uicontrol ( ' Parent ' , H_STAB_IN1 , ... 

'Units ', 'normalized' , ... 

'BackgroundColor' ,[111], ... 

'Callback' , ' hmd=get (gcbo , ' 'String' ' ) ; S_STAB_INPUT_1 . hmd=str2num (hm 
d) ; ' , ... 

'Position' , [0.215506 0.694231 0.0985545 0.0480769], ... 

'String' ,hmd, . . . 

' Style' , ' edit ' , ... 

' Tag ' , ' EditTextl ' ) ; 

b = uicontrol ( ' Parent ' , H_STAB_IN1 , ... 

'Units' , 'normalized' , ... 

'BackgroundColor' , [0.752941 0.752941 0.752941], ... 

'Position' , [0.021025 0.640385 0.17477 0.05], ... 

' String' , 'Hub Fuselege Station (ft)', ... 

' Style ' , ' text ' , ... 

' Tag ' , ' StaticText2 ' ) ; 
b = uicontrol (' Parent ' ,H_STAB_INl, . . . 

'Units ', 'normalized' , ... 

'BackgroundColor' ,[111], ... 

'Callback' , ' lmd=get (gcbo , ' 'String' ' ) ; S_STAB_INPUT_1 . Imd=str2num(lm 
d) ; ' , ... 

'Position' , [0.215506 0.640385 0.0985545 0.05], ... 

' String' , Imd, . . . 

' Style' , ' edit' , ... 

' Tag ' , ' EditTextl ' ) ; 

b = uicontrol ( ' Parent ' , H_STAB_INl , ... 

'Units' , 'normalized' , ... 

'BackgroundColor' , [0.752941 0.752941 0.752941], ... 

'Position' , [0.0197109 0.582692 0.17477 0.05], ... 

'String' , 'Hub Position Right of Buttline (ft)', ... 

' Style' , ' text' , ... 

' Tag ' , ' StaticText2 ' ) ; 
b = uicontrol ( ' Parent ' , H_STAB_IN1 , ... 

'Units' , 'normalized' , ... 

'BackgroundColor' ,[111], ... 

'Callback' , 'ymd=get (gcbo, ' 'String' ' ) ; S_STAB_INPUT_1 . ymd=str2num (ym 
d) ; ' , ... 

'Position' , [0.21682 0.586538 0.0972405 0.0480769], ... 

' String' ,ymd, . . . 

'Style' , 'edit' , ... 

'Tag' , 'EditTextl' ) ; 

b = uicontrol ( 'Parent' ,H_STAB_IN1, . . . 

'Units' , 'normalized' , ... 
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'BackgroundColor' , [0 .752941 0.752941 0.752941], ... 

'Position' , [0.0197109 0.521154 0.17477 0.0538462], ... 

'String' , 'Mast Incidence (negative fwd-degrees) ' , ... 

' Style' , ' text ' , ... 

' Tag ' , ' StaticText2 ' ) ; 
b = uicontrol (' Parent ', H_STAB_IN1, ... 

'Units ', 'normalized' , ... 

'BackgroundColor ' , [1 11], ... 

'Callback', ' im=get (gcbo, ' 'String' ') ; S_STAB_INPUT_1 . im=str2num ( im) ; 

'Position' , [0.215506 0.528846 0.0985545 0.0480769], ... 

' String' , im, . . . 

' Style' , 'edit' , ... 

'Tag' , 'EditTextl' ) ; 

b = uicontrol ( ' Parent ' , H_STAB_IN1 , ... 

'Units' , 'normalized' , ... 

'BackgroundColor' , [0.752941 0.752941 0.752941], ... 

' FontSize' , 14 , ... 

'FontWeight' , 'bold' , ... 

'Position' , [0.022339 0.403846 0.296978 0.0903846], ... 

'String' , 'VERTICAL FIN PARAMETERS' , ... 

'Style' , ' text' , ... 

' Tag ' , ' StaticTextl ' ) ; 
b = uicontrol (' Parent ', H_STAB_IN1, ... 

'Units ', 'normalized' , ... 

'BackgroundColor' , [0.752941 0.752941 0.752941], ... 

'Position' , [0.0315375 0.353846 0.173456 0.0480769], ... 

'String' , 'Height Above waterline (ft)', ... 

' Style ' , ' text ' , ... 

' Tag ' , ' StaticText2 ' ) ; 
b = uicontrol ( ' Parent ' , H_STAB_IN1 , ... 

'Units' , 'normalized' , ... 

'BackgroundColor' ,[111], ... 

'Callback', 'hvd=get (gcbo, ''String'') ; S_STAB_INPUT_1 .hvd=str2num(hv 
d);', ... 

'Position' , [0.215506 0.351923 0.0985545 0.0480769], ... 

'String' ,hvd, . . . 

'Style' , 'edit' , ... 

'Tag ' , ' EditTextl ' ) ; 

b = uicontrol ( ' Parent ' , H_STAB_IN1 , ... 

'Units ', 'normalized' , ... 

'BackgroundColor' , [0.752941 0.752941 0.752941], ... 

'Position' , [0.0341656 0.294231 0.17477 0.05], ... 

'String' , 'Fuselage Station (ft)', ... 

'Style ' , ' text ' , ... 

' Tag ' , ' StaticText2 ' ) ; 
b = uicontrol ( 'Parent' ,H_STAB_IN1, . . . 

'Units' , 'normalized' , ... 

'BackgroundColor' ,[111], ... 

'Callback' , ' lvd=get (gcbo, ' 'String' ' ) ; S_STAB_INPUT_1 . Ivd=str2num ( Iv 
d) ; ' , . . . 

'Position' , [0.215506 0.294231 0.0985545 0.05], ... 

' String' , Ivd, . . . 

'Style' , 'edit' , ... 

'Tag' , 'EditTextl' ) ; 

b = uicontrol ( ' Parent ' , H_STAB_IN1 , ... 

'Units ', 'normalized' , ... 
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' BackgroundColor [0 . 752941 0.752941 0.752941], ... 

'Position' , [0.0341656 0.238462 0.173456 0.0480769], ... 

' String ',' Position Right of Buttline (ft)', ... 

' Style' , ' text ' , ... 

' Tag ' , ' StaticText2 ' ) ; 
b = ui control (' Parent ', H_STAB_IN1 , ... 

'Units' , 'normalized' , ... 

'BackgroundColor' ,[111], ... 

'Callback' , 'yvd=get (gcbo, ' 'String' ' ) ; S_STAB_INPUT_1 .yvd=str2num(yv 
d) ; ' , ... 

'Position' , [0.215506 0.236538 0.0985545 0.0480769], ... 

' String' ,yvd, . . . 

' Style' , 'edit' , ... 

' Tag' , ' EditTextl ' ) ; 

b = uicontrol ( ' Parent ' , H_STAB_IN1 , . . . 

'Units ', 'normalized' , ... 

'BackgroundColor ', [0 .752941 0.752941 0.752941], ... 

'Position' , [0.0341656 0.182692 0.173456 0.0480769], ... 

' String ', 'Alpha Zero Lift (degrees)', ... 

' Style' , ' text' , ... 

' Tag ' , ' StaticText2 ' ) ; 
b = uicontrol ( ' Parent ' , H_STAB_IN1 , ... 

'Units' , 'normalized' , ... 

'BackgroundColor' ,[111], ... 

'Callback', ' alplov=get (gcbo, ' 'String' ') ; S_STAB_INPUT_1 . alplov= (str 
2num(alplov) ) ; ' , ... 

'Position' , [0.215506 0.180769 0.0985545 0.0480769], ... 

' String' , alplov, ... 

' Style' , ' edit' , ... 

'Tag' , 'EditTextl' ) ; 

b = uicontrol ( ' Parent ' , H_STAB_IN1 , ... 

'Units' , 'normalized' , ... 

'BackgroundColor' , [0.752941 0.752941 0.752941], ... 

'Position' , [0.0341656 0.126923 0.173456 0.0480769], ... 

'String' , 'CL Max' , ... 

' Style' , ' text' , ... 

' Tag ' , ' StaticText2 ' ) ; 
b = uicontrol (' Parent ', H_STAB_IN1 , ... 

'Units ', 'normalized' , ... 

'BackgroundColor' ,[111], ... 

'Callback' , ' clvertmax=get (gcbo, ' 'String' ' ) ; S_STAB_INPUT_1 . elver tma 
x=str2num(clvertmax) ; ' , ... 

'Position' , [0.215506 0.125 0.0985545 0.0480769], ... 

' String' , clvertmax, ... 

' Style' , 'edit' , ... 

'Tag' , 'EditTextl' ) ; 

b = uicontrol (' Parent ', H_STAB_IN1, ... 

'Units' , 'normalized' , ... 

'BackgroundColor' , [0.752941 0.752941 0.752941], ... 

'Position' , [0.0354796 0.0692308 0.173456 0.0557692], ... 

' String' , 'Dynamic Pressure Ratio (page 489-Prouty) ' , ... 

' Style' , ' text' , ... 

' Tag ' , ' StaticText2 ' ) ; 
b = uicontrol ( ' Parent ' , H_STAB_IN1 , ... 

'Units' , 'normalized' , ... 

'BackgroundColor' ,[111], ... 
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'Callback' , ' qvq=get (gcbo, ' 'String' ' ) ; S_STAB_INPUT_1 . qvq=str2num(qv 
q) ; ' , ... 

'Position' , [0.215539 0.071161 0.0977444 0.0486891], ... 

' String' , qvq, . . . 

' Style ' , ' edit ' , ... 

'Tag' , ' EditTextl ' ) ; 

b = uicontrol ( ' Parent ' , H_STAB_IN1 , ... 

'Units' , 'normalized' , ... 

'BackgroundColor' , [0.752941 0.752941 0.752941], ... 

'Position' , [0.0350877 0.0262172 0.172932 0.0337079], ... 

' String' , 'Lift Curve Slope', ... 

' Style ' , ' text ' , ... 

' Tag ' , ' StaticText2 ' ) ; 
b = uicontrol (' Parent ', H_STAB_IN1 , ... 

' Units ',' normalized' , ... 

'BackgroundColor' ,[111], ... 

'Callback' , ' av=get (gcbo, ' 'String' ' ) ; S_STAB_INPUT_1 . av=str2num(av) ; 

'Position' , [0.214286 0.0187266 0.0977444 0.0468165], ... 

' String' , av, . . . 

' Style ' , ' edit ' , ... 

'Tag' , 'EditTextl' ) ; 

b = uicontrol ( ' Parent ' , H_STAB_IN1, . . . 

'Units ', 'normalized' , ... 

'BackgroundColor' , [0.752941 0.752941 0.752941], ... 

' FontSize ' , 14 , ... 

'FontWeight' , 'bold' , ... 

'Position' , [0.360419 0.796905 0.288336 0.0889749], ... 

'String' , 'HORIZONTAL TAIL PARAMETERS' , ... 

'Style' , ' text' , ... 

' Tag ' , ' StaticTextl ' ) ; 
b = uicontrol ( ' Parent ' , H_STAB_IN1 , ... 

'Units' , 'normalized' , ... 

'BackgroundColor' , [0.752941 0.752941 0.752941], ... 

'Position' , [0.359109 0.727799 0.173001 0.046332], ... 

'String' , 'Height Above Waterline (ft) ' , ... 

' Style' , ' text' , ... 

' Tag ' , ' StaticText2 ' ) ; 
b = uicontrol ( ' Parent ' , H_STAB_IN1 , ... 

'Units' , 'normalized' , ... 

'BackgroundColor' , [1 11], ... 

'Callback' , 'hhd=get (gcbo, ' 'String' ' ) ; S_STAB_INPUT_1 . hhd=str2num (hh 
d);', ... 

'Position' , [0.55308 0.729207 0.0982962 0.0483559], ... 

' String' , hhd, . . . 

' Style ' , ' edi t ' , ... 

'Tag' , 'EditTextl' ) ; 

b = uicontrol ( 'Parent' ,H_STAB_IN1, ... 

'Units' , 'normalized' , ... 

'BackgroundColor' , [0.752941 0.752941 0.752941], ... 

'Position' , [0.360419 0.659574 0.17431-2 0.0483559], ... 

' String' ,' Fuselage Station (ft)', ... 

'Style' , 'text' , ... 

'Tag' , ' StaticText2 ' ) ; 
b = uicontrol ( 'Parent' ,H_STAB_IN1, ... 

'Units' , 'normalized' , ... 

' BackgroundColor ',[ 1 11], ... 
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'Callback' , ' lhd=get (gcbo , ' 'String' ' ) ; S_STAB_INPUT_1 . Ihd=str2num ( Ih 
d) ; ' , ... 

'Position' , [0.554391 0.659574 0.0982962 0.0483559], ... 

' String' , Ihd, . . . 

' Style' , 'edit' , ... 

'Tag' , 'EditTextl' ) ; 

b = uicontrol { ' Parent ' , H_STAB_IN1 , ... 

'Units' , 'normalized' , ... 

'BackgroundColor' , [0.752941 0.752941 0.752941], ... 

' FontSize ' , 6 , ... 

'Position' , [0.360053 0.590385 0.173456 0.0480769], ... 

' String' ,' Position Right of Buttline (ft))', ... 

' Style' , ' text' , ... 

'Tag' , 'StaticText2 ' ) ; 
b = uicontrol ( ' Parent ' , H_STAB_IN1 , ... 

'Units ', 'normalized' , ... 

' BackgroundColor ', [1 11], ... 

'Callback' , 'yhd=get (gcbo, ' 'String' ' ) ; S_STAB_INPUT_1 .yhd=str2num(yh 

d);', ... 

'Position' , [0.554391 0.59381 0.0982962 0.0483559], ... 

' String' , yhd, ... 

' Style ' , ' edit ' , ... 

'Tag' , 'EditTextl' ) ; 

b = uicontrol ( ' Parent ' , H_STAB_IN1 , ... 

' Units ',' normalized' , ... 

'BackgroundColor' , [0.752941 0.752941 0.752941], ... 

'Position' , [0.360419 0.528046 0.174312 0.0483559], ... 

' String' , 'Alpha Zero Lift (degrees)', ... 

' Style' , ' text' , ... 

'Tag' , ' StaticText2 ' ) ; 
b = uicontrol ( ' Parent ' , H_STAB_IN1 , ... 

'Units ', 'normalized' , ... 

'BackgroundColor' ,[111], ... 

'Callback' , ' alploh=get (gcbo, ' 'String' ' ) ;S_STAB_INPUT_1 .alploh=str2 
num(alploh) ; ' , ... 

'Position' , [0.554391 0.529981 0.0982962 0.0483559], ... 

' String' , alploh, ... 

' Style ' , ' edit ' , ... 

' Tag ' , ' EditTextl ' ) ; 

b = uicontrol ( ' Parent' , H_STAB_IN1 , ... 

'Units ', 'normalized' , ... 

'BackgroundColor' , [0.752941 0.752941 0.752941], ... 

'Position' , [0.360419 0.464217 0.174312 0.0483559], ... 

' String' , 'Angle of Incidence (degrees)', ... 

' Style' , ' text' , ... 

' Tag' , ' StaticText2 ' ) ; 
b = uicontrol ( ' Parent' , H_STAB_IN1 , ... 

'Units ', 'normalized' , ... 

'BackgroundColor' ,[111], ... 

'Callback' , ' ih=get (gcbo, ' 'String' ' ) ; S_STAB_INPUT_1 . ih=str2num(ih) ; 

'Position' , [0.554391 0.466151 0.0982962 0.0483559], ... 

' String' , ih, . . . 

' Style' , ' edit' , ... 

'Tag' , ' EditTextl ' ) ; 

b = uicontrol ( ' Parent ' , H_STAB_IN1 , ... 

'Units' , 'normalized' , ... 
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'BackgroundColor' , [0.752941 0.752941 0.752941], ... 

'Position' , [0.360419 0.398453 0.174312 0.0483559], ... 

' String' , 'Lift Curve Slope', ... 

' Style ' , ' text ' , ... 

' Tag ' , ' StaticText2 ' ) ; 
b = uicontrol { 'Parent' ,H_STAB_IN1, . . . 

'Units ', 'normalized' , ... 

'BackgroundColor' ,[111], ... 

'Callback' , ' ah=get (gcbo, ' 'String' ' ) ; S_STAB_INPUT_1 . ah=str2num (ah) ; 

'Position' , [0.554391 0.400387 0.0982962 0.0483559], ... 

' String' , ah, . . . 

' Style ' , ' edit ' , ... 

'Tag' , 'EditTextl' ) ; 

b = uicontrol { 'Parent' ,H_STAB_IN1, . . . 

'Units' , 'normalized' , ... 

'BackgroundColor' , [0.752941 0.752941 0.752941], ... 

'Position' , [0.360053 0.328846 0.173456 0.0538462], ... 

' String ',' Dynamic Pressure Ratio (page 489 Prouty) ' , ... 

' Style ' , ' text' , ... 

' Tag ' , ' StaticText2 ' ) ; 
b = uicontrol {' Parent ', H_STAB_IN1 , ... 

'Units ',' normalized' , ... 

'BackgroundColor' ,[111], ... 

'Callback' , ' qhq=get (gcbo, ' 'String' ' } ; S_STAB_INPUT_1 . qhq=str2num (qh 
q) ; ' , ... 

'Position' , [0.554391 0.336557 0.0982962 0.0483559], ... 

' String' , qhq, . . . 

' Style' , ' edit' , ... 

' Tag ' , ' EditTextl ' ) ; 

b = uicontrol ( ' Parent' , H_STAB_IN1, . . . 

' Units ', 'normalized' , ... 

'BackgroundColor' , [0.752941 0.752941 0.752941], ... 

'Position' , [0.358739 0.261538 0.17477 0.0538462], ... 

'String' , 'Rotor Downwash Ratio (page 489 Prouty) ' , ... 

' Style' , ' text ' , ... 

' Tag ' , ' StaticText2 ' ) ; 
b = uicontrol ( 'Parent' ,H_STAB_IN1, . . . 

'Units ', 'normalized' , ... 

'BackgroundColor' ,[111], ... 

'Callback' , ' vhvl=get (gcbo, ' 'String' ' ) ; S_STAB_INPUT_1 . vhvl=str2num( 
vhvl) ; ' , ... 

'Position' , [0. 554391 0.272727 0.0982962 0.0483559], ... 

' String ', vhvl , ... 

' Style' , ' edit ' , ... 

' Tag ' , ' EditTextl ' ) ; 

b = uicontrol ( ' Parent' ,H_STAB_IN1, . . . 

' Units ',' normalized' , ... 

'BackgroundColor' , [0.752941 0.752941 0.752941], ... 

'Position' , [0.360053 0.196154 0.173456 0.0557692], ... 

' String' ,' Fuselage Downwash Ratio (page 489 Prouty}', ... 

' Style' , ' text' , ... 

' Tag ' , ' StaticText2 ' ) ; 
b = uicontrol ( ' Parent ' , H_STAB_IN1, . . . 

'Units' , 'normalized' , ... 

'BackgroundColor' ,[111], ... 
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'Callback' , 'detafdalpfh=get (gcbo, ' 'String' ' ) ; S_STAB_INPUT_1 . detafd 
alpfh=str2num(detafdalpfh) ; ' , ... 

'Position' , [0.554391 0.206963 0.0982962 0.0483559], ... 

'String' , detaf dalpfh, . . . 

' Style ' , ' edit ' , ... 

'Tag' , 'EditTextl' ) ; 

b = u icon t r ol (' Parent ' ,H_STAB_IN1, ... 

'Units ', 'normalized' , ... 

'BackgroundColor' , [0.752941 0.752941 0.752941], ... 

' FontSize' ,14, ... 

'FontWeight' , 'bold' , ... 

'Position' , [0.686763 0.798839 0.288336 0.0889749], ... 

'String' , 'TAIL ROTOR PARAMETERS' , ... 

' Style' , ' text ' , ... 

'Tag' , ' StaticTextl ' ) ; 
b = uicontrol (' Parent ', H_STAB_IN1 , ... 

'Units' , 'normalized' , ... 

'BackgroundColor' , [0.752941 0.752941 0.752941], ... 

'Position' , [0.688073 0.729207 0.173001 0.0464217], ... 

'String' , 'Height Above Waterline (ft) ' , ... 

' Style' , ' text' , ... 

' Tag ' , ' StaticText2 ' ) ; 
b = uicontrol ( ' Parent ' , H_STAB_IN1 , ... 

'Units' , 'normalized' , ... 

'BackgroundColor' ,[111], ... 

'Callback' , 'htd=get (gcbo, ' 'String' ' ) ; S_STAB_INPUT_1 . htd=str2num (ht 
d) ; ', ... 

'Position' , [0.880734 0.729207 0.0982962 0.0483559], ... 

'String' ,htd, . . . 

'Style' , 'edit' , ... 

'Tag' , 'EditTextl' ) ; 

b = uicontrol ( 'Parent' ,H_STAB_IN1, ... 

'Units' , 'normalized' , ... 

'BackgroundColor' , [0.752941 0.752941 0.752941], ... 

'Position' , [0.688073 0.659574 0.174312 0.0483559], ... 

'String', 'TR Fuselage Station (ft)', ... 

' Style ' , ' text ' , ... 

' Tag ' , ' StaticText2 ' ) ; 
b = uicontrol (' Parent ', H_STAB_IN1 , ... 

'Units' , 'normalized' , ... 

'BackgroundColor' ,[111], ... 

'Callback' , ' ltd=get (gcbo, ' 'String' ' ) ; S_STAB_INPUT_1 . Itd=str2num( It 
d) ; ' , ... 

'Position' , [0.882045 0.659574 0.0982962 0.0483559], ... 

' String' , ltd, . . . 

' Style ' , ' edit ' , ... 

'Tag' , 'EditTextl' ) ; 

b = uicontrol ( ' Parent ' , H_STAB_INl , ... 

'Units ', 'normalized' , ... 

'BackgroundColor' , [0.752941 0.752941 0.752941], ... 

'FontSize' ,6, ... 

'Position' , [0.688073 0.591876 0.174312 0.0483559], ... 

' String' ,' Position Right of Buttline (ft)', ... 

' Style' , ' text ' , ... 

'Tag' , ' StaticText2 ' ) ; 
b = uicontrol (' Parent ' ,H_STAB_IN1, ... 

'Units' , 'normalized' , ... 
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' BackgroundColor ' , [1 11], ... 

'Callback', 'ytd=get (gcbo, ' 'String' ') ; S_STAB_INPUT_1 .ytd=str2num(yt 
d) ; ' , ... 

'Position' , [0.882045 0.59381 0.0982962 0.0483559], ... 

' String' ,ytd, . . . 

' Style' , ' edit ' , ... 

'Tag' , 'EditTextl' ) ; 

b = uicontrol ( ' Parent ' , H_STAB_IN1 , ... 

'Units ',' normalized' , ... 

'BackgroundColor' , [0.752941 0.752941 0.752941], ... 

'Position' , [0.688073 0.528046 0.174312 0.0483559], ... 

'String' , 'Number of Blades' , ... 

' Style' , ' text ' , ... 

' Tag' , ' StaticText2 ' ) ; 
b = uicontrol {' Parent ', H_STAB_IN1 , ... 

' Units ',' normalized' , ... 

'BackgroundColor' ,[111], ... 

'Callback' , 'bt=get {gcbo, ' 'String' ' ) ; S_STAB_INPUT_1 .bt=str2num(bt) ; 

'Position' , [0. 882045 0.529981 0.0982962 0.0483559], ... 

'String' , bt, ... 

' Style' , ' edit ' , ... 

'Tag' , 'EditTextl' ) ; 

b = uicontrol ( ' Parent ' , H_STAB_IN1 , ... 

'Units' , 'normalized' , ... 

'BackgroundColor' , [0.752941 0.752941 0.752941], ... 

'Position' , [0.688073 0.464217 0.174312 0.0483559], ... 

' String' ,' Blade Chord (ft)', ... 

' Style ' , ' text ' , ... 

' Tag' , ' StaticText2 ' ) ; 
b = uicontrol ( ' Parent ' , H_STAB_IN1 , ... 

'Units ', 'normalized' , ... 

'BackgroundColor' ,[111], ... 

'Callback' , ' ct=get (gcbo, ' ' String' ' ) ; S_STAB_INPUT_1 . ct=str2num(ct) ; 

'Position' , [0. 882045 0.466151 0.0982962 0.0483559], ... 

' String' , ct , ... 

' Style' , 'edit ' , ... 

' Tag' , ' EditTextl ' } ; 

b = uicontrol ( 'Parent' ,H_STAB_IN1, . . . 

'Units' , 'normalized' , ... 

'BackgroundColor' , [0.752941 0.752941 0.752941], ... 

'Position' , [0. 688073 0.398453 0.174312 0.0483559], ... 

' String' ,' Blade Radius (ft)', ... 

' Style' , ' text ' , ... 

' Tag' , ' StaticText2 ' ) ; 
b = uicontrol { 'Parent' ,H_STAB_IN1, . . . 

'Units ', 'normalized' , ... 

'BackgroundColor' ,[111], ... 

'Callback', ' Rt=get (gcbo , ' 'String' ') ; S_STAB_INPUT_1 . Rt=str2num(Rt) ; 

'Position' , [0.882045 0.400387 0.0982962 0.0483559], ... 

' String' , Rt, ... 

'Style' , 'edit' , ... 

' Tag ' , ' EditTextl ' ) ; 

b = uicontrol (' Parent ', H_STAB_IN1 , ... 

'Units ',' normalized' , ... 
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'BackgroundColor' , [0.752941 0.752941 0.752941], ... 

'Position' , [0.688073 0.334623 0.174312 0.0483559], ... 

' String' ,' Lift Curve Slope', ... 

' Style' , ' text ' , ... 

' Tag' , ' StaticText2 ' ) ; 
b = uicontrol ( ' Parent ' , H_STAB_IN1 , ... 

'Units ', 'normalized' , ... 

'BackgroundColor ' ,[111], ... 

'Callback', 'at=get (gcbo, ' 'String' ') ; S_STAB_INPUT_1 . at=str2num(at) ; 

'Position' , [0. 882045 0.336557 0.0982962 0.0483559], ... 

' String ' , at , ... 

' Style ' , ' edit ' , ... 

'Tag' , 'EditTextl' ) ; 

b = uicontrol ( ' Parent ' , H_STAB_IN1 , ... 

'Units ' , 'normalized' , ... 

'BackgroundColor' , [0.752941 0.752941 0.752941], ... 

'Position' , [0. 687254 0.261538 0.17477 0.0538462], ... 

'String' , 'Rotational Velocity (rad/sec) ' , ... 

' Style' , ' text ' , ... 

'Tag' , 'StaticText2 ' ) ; 
b = uicontrol ( 'Parent' ,H_STAB_IN1, . . . 

'Units ', 'normalized' , ... 

'BackgroundColor' ,[111], ... 

'Callback' , ' ohmt=get (gcbo, ' 'String' ') ; S_STAB_INPUT_1 . ohmt=str2num ( 
ohmt) ;',... 

'Position' , [0. 882045 0.272727 0.0982962 0.0483559], ... 

' String' , ohmt , ... 

' Style' , ' edit ' , ... 

'Tag' , 'EditTextl' ) ; 

b = uicontrol {' Parent ', H_STAB_IN1 , ... 

' Units ',' normalized' , ... 

'BackgroundColor' , [0.752941 0.752941 0.752941], ... 

'Position' , [0.687254 0.192308 0.17477 0.0596154], ... 

' String' ,' Flap Moment of Inertia (slug-f t^2 ) ' , ... 

' Style' , ' text ' , ... 

'Tag' , ' StaticText2 ' ) ; 
b = uicontrol { 'Parent' ,H_STAB_IN1, . . . 

'Units ', 'normalized' , ... 

'BackgroundColor' ,[111], ... 

'Callback', ' Ibt=get (gcbo, ''String'') ; S_STAB_INPUT_1 . Ibt=str2num ( Ib 
t) ; ' , ... 

'Position' , [0.882045 0.206963 0.0982962 0.0483559], ... 

' String' , Ibt , ... 

' Style ' , ' edit ' , ... 

'Tag' , 'EditTextl' ) ; 

b = uicontrol {' Parent ', H_STAB_IN1 , ... 

'Units' , 'normalized' , ... 

'BackgroundColor' , [0.752941 0.752941 0.752941], ... 

'Position' , [0.688073 0.141199 0.174312 0.0483559], ... 

' String' , 'Delta-3 Angle (degrees)', ... 

' Style' , ' text ' , ... 

' Tag ' , ' StaticText2 ' ) ; 
b = uicontrol ( 'Parent' ,H_STAB_IN1, ... 

'Units ', 'normalized' , ... 

'BackgroundColor' ,[111], ... 
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'Callback' , ' delta3=get (gcbo, ' 'String' ') ; S_STAB_INPUT_1 . delta3=str2 
num(delta3) ; ' , ... 

'Position' , [0.882045 0.145068 0.0982962 0.0464217], ... 

' String ' , delta3 , ... 

' Style' , ' edit ' , ... 

'Tag' , 'EditTextl' ) ; 

b = uicontrol ( ' Parent' , H_STAB_IN1 , ... 

'Units' , 'normalized' , ... 

'BackgroundColor' , [0.752941 0.752941 0.752941], ... 

'Position' , [0.688073 0.0773694 0.174312 0.0483559], ... 

' String ',' Blade Twist (degrees)', ... 

' Style' , ' text ' , ... 

' Tag ' , ' StaticText2 ' ) ; 
b = uicontrol (' Parent ' ,H_STAB_IN1, . , . 

'Units' , 'normalized' , ... 

'BackgroundColor' , [1 11], ... 

'Callback' , ' thetalt=get (gcbo, ' 'String' ' ) ; S_STAB_INPUT_1 . thetalt=st 
r2num( thetalt ) ; ' , ... 

'Position' , [0.882045 0.0793037 0.0982962 0.0483559], ... 

' String ', thetalt , ... 

' Style' , ' edit ' , ... 

' Tag ' , ' EditTextl ' ) ; 

b = uicontrol (' Parent ', H_STAB_IN1 , ... 

'Units' ., 'normalized' , ... 

' Callback' , ' global S_SC_INPUT_1 ; 
S_SC_INPUT_l=S_STAB_INPUT_l;stab_control_input_fcn contl ' , ... 

' FontSize' , 12 , ... 

' FontWeight ' , ' bold' , ... 

'Position' , [0.51117 0.1 0.164258 0.0807692], ... 

' String' , 'Continue >>', ... 

' Tag ' , ' Pushbutton4 ' ) ; 
b = uicontrol (' Parent' ,H_STAB_IN1, ... 

'Units' , 'normalized' , ... 

'Callback' , ' stab_control_input_f cn backl ' , ... 

' FontSize ' , 12 , ... 

' FontWeight ' , ' bold' , ... 

'Position' , [0.339028 0.0115385 0.164258 0.0807692], ... 

'String', '<< Back', ... 

' Tag ' , ' Pushbuttonl ' ) ; 
b = uicontrol ( 'Parent' , H_STAB_IN1 , . . . 

'Units' , 'normalized' , ... 

'Callback' , ' stab_control_input_f cn print' , ... 

' FontSize ' , 12 , ... 

' FontWeight ' , ' bold' , ... 

'Position' , [0.509855 0.00961538 0.164258 0.0807692], ... 

' String' , ' Print Screen' , ... 

'Tag' , ' Pushbutton2 ' ) ; 
b = uicontrol ( ' Parent ' , H_STAB_IN1 , ... 

'Units' , 'normalized' , ... 

' Callback' ,' stab_control_input_fcn cnx' , ... 

' FontSize ', 12 , ... 

' FontWeight ', 'bold' , ... 

'Position' , [0.339028 0.1 0.164258 0.0807692], ... 

'String' , 'Cancel' , ... 

'Tag' , ' Pushbutton3 ' ) ; 

assignin ( ' base ' , ' S_STAB_INPUT_1 ' , S_STAB_INPUT_1 ) ; 
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assignin ( ' base ' , ' S_SC_INPUT_1 ' , S_SC_INPUT_1 ) 
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28. stabiIity_control_input_2.m 



function stability_control_input_2 {) 

% This is the machine-generated representation of a Handle Graphics 
object 

% and its children. Note that handle values may change when these 
objects 

% are re-created. This may cause problems with any callbacks written to 
% depend on the value of the handle at the time the object was saved. 

% 

% To reopen this object, just type the name of the M-file at the MATLAB 
% prompt. The M-file and its associated MAT- file must be on your path. 

% Second GUI screen to input stability and control paramaters . 

% Written for JANRAD version 6.0 by LT David A. Heathorn 



load stability_control_input_2 

global H_STAB_IN1 H_STAB_IN2 S_STAB_INPUT_1 S_STAB_INPUT_2 S_STAB_INPUT 
NAME S_SC_INPUT_2 

if -isempty (NAME) 

eval(['load ',NAME]) 

unstructure_stab_input 

structure_stab_input_2 

else 

load create_new_stab_2 
s true tur e_s tab_input_2 
end 

H_STAB_IN2 = figure ( 'Units' , 'normalized' , ... 

'Color' ,[0.8 0.8 0.8], ... 

'Colormap' ,mat0, ... 

'CreateFcn' , 'global MESH_VAL, MESH_VAL=0; ; ' , ... 

'Name' , 'Stability and Control Parameters page 2' , ... 

'NumberTitle' , ' of f ' , ... 

' PointerShapeCData ' , matl , ... 

'Position' , [0.0025 0.0466667 0.9975 0.89], ... 

' Tag' , ' Fig2 ' ) ; 

b = uicontrol (' Parent ', H_STAB_IN2 , ... 

'Units ', 'normalized' , ... 

'BackgroundColor' , [0.752941 0.752941 0.752941], ... 

'Position' , [0.011236 0.462777 0.313202 0.452716], ... 

' Style ' , ' frame ' , ... 

' Tag' , ' Framel ' ) ; 

b = uicontrol ( 'Parent' ,H_STAB_IN2, . . . 

'Units' , 'normalized' , ... 

'BackgroundColor' , [0.752941 0 . 752941 0 . 752941 ] , ... 

'Position' , [0.0125313 0.00374532 0.313283 0.455056], ... 

' Style ' , ' frame ' , ... 

' Tag ' , ' Frame2 ' ) ; 

b = uicontrol ( ' Parent ' , H_STAB_IN2 , ... 

'Units ', 'normalized' , ... 

'BackgroundColor' , [0.752941 0.752941 0.752941], ... 
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'Position' , [0.344612 0.224719 0.315789 0.689139], ... 

' Style ' , ' frame ' , ... 

' Tag ' , ' Frame3 ' ) ; 

b = uicontrol ( ' Parent ' , H_STAB_IN2 , ... 

'Units ', 'normalized' , ... 

' BackgroundCol or ', [0 .752941 0.752941 0.752941], ... 

'Position' , [0. 682957 0.134831 0.310777 0.779026], ... 

' Style ' , ' frame ' , ... 

' Tag ' , ' Frame4 ' ) ; 

b = uimenu { ' Parent ' , H_STAB_IN2 , ... 

'Label ', 'JANRAD Options', ... 

'Tag' , 'uimenul' ) ; 
c = uimenu (' Parent ', b, ... 

'Callback' , 'performance_input_fcn quit' , ... 

' Label ', 'Quit JANRAD', ... 

'Tag' , 'JANRAD OptionsSubuimenul ' ) ; 
c = uimenu (' Parent ', b, ... 

'Callback' , 'performance_input_fcn return', ... 

'Label ', 'Return to Begining' , ... 

'Tag' , 'JANRAD OptionsSubuimenul' } ; 
c = uimenu (' Parent ', b, ... 

'Callback' , 'performance_input_fcn delta_input' , ... 

'Enable' , 'of f ' , ... 

'Label' , 'Change Input Parameters' , ... 

' Tag ' , ' Subuimenul ' ) ; 
c = uimenu (' Parent ', b, ... 

'Callback' , 'performance_input_fcn about' , ... 

'Label ', 'About Janrad 98 ...', ... 

' Separator ', 'on' , ... 

' Tag ' , ' Subuimenul ' ) ; 
b = uicontrol { 'Parent' ,H_STAB_IN2, . . . 

'Units ' , 'normalized' , ... 

'BackgroundColor' , [0.752941 0.752941 0.752941], ... 

'FontSize' ,14, ... 

'FontWeight ' , 'bold' , ... 

'Position' , [0.106516 0.917603 0.763158 0.0674157], ... 
'String' , 'STABILITY AND CONTROL PARAMETERS (PAGE 2 OF 2 ) ' , . 

' Style' , ' text ' , ... 

' Tag ' , ' StaticText3 ' ) ; 
b = uicontrol {' Parent ', H_STAB_IN2 , ... 

'Units ', 'normalized' , ... 

'BackgroundColor' , [0.752941 0.752941 0.752941], ... 

'FontSize' ,14, ... 

'FontWeight' , 'bold' , ... 

'Position' , [0.0225564 0.816479 0.290727 0.0898876], ... 

' String ' , ' RIGGING PARAMETERS ' , ... 

' Style ' , ' text ' , ... 

' Tag ' , ' StaticTextl ' ) ; 
b = uicontrol ( ' Parent ' , H_STAB_IN2 , ... 

'Units' , 'normalized' , ... 

'BackgroundColor' , [0.752941 0.752941 0.752941], ... 

'Position' , [0.0160214 0.763359 0.174667 0.0534351], ... 

' String' , 'Long Cyclic Pitch per inch deflection (degrees/in) 
' Style ' , ' text ' , ... 

' Tag ' , ' StaticText2 ' ) ; 
b = uicontrol (' Parent ', H_STAB_IN2 , ... 
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' Units 'normalized' , ... 

' BackgroundColor ' , [1 11], ... 

'Callback' , ' dblmddele=get (gcbo, ' 'String' ' ) ; S_STAB_INPUT_2 .dblmddel 
e=str2num{dblmddele) ; ' , ... 

'Position' , [0 .217867 0.76673 0.0985545 0.0478011], ... 

' String' , dblmddele, ... 

' Style' , 'edit' , ... 

'Tag' , 'EditTextl' ) ; 

b = uicontrol ( 'Parent' ,H_STAB_IN2, . . . 

'Units ', 'normalized' , ... 

'BackgroundColor' , [0.752941 0.752941 0.752941], ... 

'Position' , [0.0160214 0.708015 0.1749 0.0534351], ... 

' String' ,' Lateral Cyclic Pitch per inch deflection (deg/in)', ... 
'Style' , 'text' , ... 

'Tag' , 'StaticText2 ' ) ; 
b = uicontrol (' Parent ', H_STAB_IN2 , ... 

'Units ', 'normalized' , ... 

'BackgroundColor' ,[111], ... 

'Callback' , ' dalmddela=get (gcbo, ' 'String' ' ) ; S_STAB_INPUT_2 .dalmddel 
a=str2num(dalmddela) ; ' , ... 

'Position' , [0.217867 0.709369 0.0985545 0.0478011], ... 

' String' , dalmddel a, ... 

' Style ' , ' edit ' , ... 

'Tag' , 'EditTextl' ) ; 

b = uicontrol {' Parent ' ,H_STAB_IN2, . . . 

'Units ', 'normalized' , ... 

'BackgroundColor' , [0.752941 0.752941 0.752941], ... 

'Position' , [0.0160214 0.650763 0.173565 0.0515267], ... 

'String', 'Collective pitch per inch deflection (deg/in) ' , ... 

' Style' , ' text ' , ... 

'Tag' , ' StaticText2 ' ) ; 
b = uicontrol {' Parent ', H_STAB_IN2 , ... 

'Units' , 'normalized' , ... 

'BackgroundColor' ,[111], ... 

'Callback' , ' dthetomddelc=get (gcbo , ' 'String' ' ) ; S_STAB_INPUT_2 . dthet 
omddelc=str2num(dthetomddelc) ; ' , ... 

'Position' , [0.217867 0.652008 0.0985545 0.0516252], ... 

' String ' , dthetomddelc , ... 

' Style' , ' edit ' , ... 

' Tag' , ' EditTextl ' ) ; 

b = uicontrol {' Parent ', H_STAB_IN2 , ... 

' Units ', 'normalized' , ... 

'BackgroundColor' , [0.752941 0.752941 0.752941], ... 

'Position' , [0.0160214 0.590566 0.1749 0.0528302], ... 

' String' ,' thetaOt /pedal deflection (deg/in or deg/deg)', ... 

' Style' , ' text' , ... 

'Tag' , 'StaticText2 ' ) ; 
b = uicontrol ( ' Parent ' , H_STAB_IN2 , ... 

'Units' , 'normalized' , ... 

' BackgroundColor ', [1 11], ... 

'Callback' , ' dthetotddelp=get (gcbo , ' 'String' ' ) ; S_STAB_INPUT_2 . dthet 
otddelp=str2num(dthetotddelp) ; ' , ... 

'Position' , [0.217867 0.594646 0.0985545 0.0516252], ... 

' String' , dthetotddelp, ... 

'Style' , 'edit' , ... 

' Tag ' , ' Edi tText 1 ' ) ; 

b = uicontrol {' Parent ', H_STAB_IN2 , ... 
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'Units' , 'normalized' , ... 

'BackgroundColor' , [0.752941 0.752941 0.752941], ... 

'Position' , [0.0160214 0.530189 0.1749 0.0528302], ... 

' String' , 'NOTAR slv twst/defl (deg. or in, travel) 1000 for TR' , 

' Style' , ' text' , ... 

' Tag ' , ' StaticText2 ' ) ; 
b = uicontrol (' Parent ', H_STAB_IN2 , ... 

'Units ',' normalized' , ... 

' BackgroundColor ' , [1 11], ... 

'Callback' , ' sidearm=get (gcbo , ' 'String' ' ) ; S_STAB_INPUT_2 . sidearm=st 
r2num(sidearm) ; ' , ... 

'Position' , [0.218045 0.535581 0.0977444 0.0468165], ... 

' String' , sidearm, ... 

' Style' , ' edit' , ... 

'Tag' , 'EditTextl' ) ; 

b = uicontrol ( ' Parent ' , H_STAB_IN2 , ... 

'Units' , 'normalized' , ... 

'BackgroundColor' , [0.752941 0.752941 0.752941], ... 

'Position' , [0.0160214 0.466038 0.1749 0.0509434], ... 

' String' , 'Max Rudder Deflection (deg or in. travel)', ... 

' Style' , ' text' , ... 

' Tag ' , ' StaticText2 ' ) ; 
b = uicontrol (' Parent' ,H_STAB_IN2, ... 

' Units ',' normalized' , ... 

'BackgroundColor' , [1 11], ... 

'Callback' , 'maxr=get (gcbo, ' 'String' ' ) ; S_STAB_INPUT_2 .maxr=str2num ( 
maxr) ; ' , ... 

'Position' , [0 .217623 0.479245 0.0987984 0.0471698], ... 

' String' , maxr , ... 

' Style' , ' edit' , ... 

'Tag' , 'EditTextl' ) ; 

b = uicontrol (' Parent' ,H_STAB_IN2, ... 

' Units ',' normalized' , ... 

'BackgroundColor' , [0.752941 0.752941 0.752941], ... 

' FontSize' , 14 , ... 

'FontWeight ' , 'bold' , ... 

'Position' , [0.0200501 0.400749 0.298246 0.0505618], ... 

' String' , ' NOTAR PARAMETERS ' , ... 

' Style' , ' text' , ... 

'Tag' , ' StaticTextl ' ) ; 
b = uicontrol ( ' Parent ' , H_STAB_IN2 , ... 

'Units' , 'normalized' , ... 

'BackgroundColor' , [0.752941 0.752941 0.752941], ... 

'Position' , [0.0291139 0.357414 0.173418 0.0361217], ... 

' String' ,' Height Above waterline (ft)', ... 

' Style' , ' text' , ... 

' Tag' , ' StaticText2 ' ) ; 
b = uicontrol ( ' Parent ' , H_STAB_IN2 , ... 

'Units' , 'normalized' , ... 

'BackgroundColor ', [1 11], ... 

'Callback' , ' htnd=get (gcbo , ' 'String' ' ) ; S_STAB_INPUT_2 . htnd=str2num ( 
htnd) ; ' , ... 

'Position' , [0.21682 0.351923 0.0985545 0.0480769], ... 

' String' , htnd, ... 

' Style' , ' edit' , ... 

'Tag' , 'EditTextl' ) ; 
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b = uicontrol { ' Parent ' , H_STAB_IN2 , ... 

'Units' , 'normalized' , ... 

'BackgroundColor' , [0 .752941 0.752941 0.752941], ... 

'Position' , [0.0293725 0.290566 0.1749 0.0509434], ... 

'String' , 'Boom Fuselage Station (ft) ' , ... 

'Style' , ' text' , ... 

'Tag' , ' StaticText2 ' ) ; 
b = uicontrol { ' Parent ' , H_STAB_IN2 , ... 

'Units' , 'normalized' , ... 

'BackgroundColor' ,[111], ... 

'Callback' , ' ltnd=get (gcbo, ' 'String' ' ) ; S_STAB_INPUT_2 . Itnd=str2num ( 
Itnd) ; ' , ... 

'Position' , [0.21682 0.294231 0.0985545 0.05], ... 

' String' , Itnd, ... 

' Style' , ' edit' , ... 

' Tag ' , ' EditTextl ' ) ; 

b = uicontrol {' Parent ', H_STAB_IN2 , ... 

'Units' , 'normalized' , ... 

'BackgroundColor ',[ 0 . 752941 0.752941 0.752941], ... 

'Position' , [0.0293725 0.233962 0.173565 0.0490566], ... 

' String' ,' Boom Position Right of Buttline (ft)', ... 

'Style' , ' text' , ... 

' Tag ' , ' StaticText2 ' ) ; 
b = uicontrol (' Parent ', H_STAB_IN2 , ... 

'Units' , 'normalized' , ... 

' BackgroundColor ', [1 11], ... 

'Callback' , 'ytnd=get (gcbo, ' 'String' ' ) ; S_STAB_INPUT_2 .ytnd=str2num ( 
ytnd) ; ' , ... 

'Position' , [0.21682 0.236538 0.0985545 0.0480769], ... 

' String' ,ytnd, . . . 

' Style ' , ' edit ' , ... 

'Tag' , 'EditTextl' ) ; 

b = uicontrol ( ' Parent ' , H_STAB_IN2 , ... 

'Units ' , 'normalized' , ... 

'BackgroundColor' , [0.752941 0.752941 0.752941], ... 

'Position' , [0.0293725 0.19434 0.173565 0.0358491], ... 

'String' , 'NOTAR diameter (ft) ) ' , ... 

'Style' , 'text' , ... 

' Tag ' , ' StaticText2 ' ) ; 
b = uicontrol ( 'Parent' ,H_STAB_IN2, . . . 

'Units' , 'normalized' , ... 

'BackgroundColor' ,[111], ... 

'Callback' , ' dian=get (gcbo, ' 'String' ' ) ; S_STAB_INPUT_2 .dian=str2num( 
dian) ;',... 

'Position' , [0.21682 0.180769 0.0985545 0.0480769], ... 

'String' , dian, . . . 

' Style ' , ' edit ' , ... 

'Tag' , 'EditTextl' ) ; 

b = uicontrol (' Parent ', H_STAB_IN2 , ... 

'Units' , 'normalized' , ... 

'BackgroundColor' , [0.752941 0.752941-0.752941], ... 

'Position' , [0.0293725 0.120755 0.173565 0.0584906], ... 

'String' ,' Swirl Angle at Boom (degrees)', ... 

'Style' , ' text' , ... 

'Tag' , ' StaticText2 ' ) ; 
b = uicontrol ( 'Parent' ,H_STAB_IN2, . . . 

'Units' , 'normalized' , ... 
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'BackgroundColor ' , [1 11], ... 

'Callback' , ' swirl=get (gcbo, ' 'String' ') ; S_STAB_INPUT_2 . swirl=str2nu 
m( swirl) ; ' , ... 

'Position' , [0.21682 0.125 0.0985545 0.0480769], ... 

' String' , swirl, ... 

' Style ' , ' edit ' , ... 

' Tag ' , ' EditTextl ' ) ; 

b = uicontrol ( ' Parent ' , H_STAB_IN2 , ... 

'Units ', 'normalized' , ... 

'BackgroundColor' , [0 .752941 0.752941 0.752941], ... 

'Position' , [0.0293725 0.0792453 0.173565 0.0339623], ... 

'String' , 'NOTAR Max Force (lbs) ' , ... 

' Style ' , ' text ' , ... 

' Tag ' , ' StaticText2 ' ) ; 
b = uicontrol ( ' Parent ' , H_STAB_IN2 , ... 

'Units ', 'normalized' , ... 

'BackgroundColor' , [1 11], ... 

'Callback' , ' Ytmaxn=get (gcbo, ' 'String' ' ) ; S_STAB_INPUT_2 . Ytmaxn=str2 
num(Ytmaxn) ; ' , ... 

'Position' , [0.215506 0.0711538 0.0998686 0.0480769], ... 

' String' , Ytmaxn, ... 

' Style' , ' edit ' , ... 

' Tag ' , ' Edi tText 1 ' ) ; 

b = uicontrol ( ' Parent ' , H_STAB_IN2 , ... 

'Units' , 'normalized' , ... 

'BackgroundColor' , [0.752941 0.752941 0.752941], ... 

'Position' , [0.0293725 0.0113208 0.173565 0.0528302], ... 

' String' ,' Thruster Fuselage Station (ft)', ... 

' Style' , ' text ' , ... 

' Tag ' , ' StaticText2 ' ) ; 
b = uicontrol ( ' Parent ' , H_STAB_IN2 , ... 

'Units' , 'normalized' , ... 

'BackgroundColor' ,[111], ... 

'Callback' , ' lttnd=get (gcbo, ' 'String' ') ; S_STAB_INPUT_2 . Ittnd=str2nu 
m(lttnd) ; ' , ... 

'Position' , [0.21682 0.0173077 0.0985545 0.0480769], ... 

' String' , Ittnd, . . . 

' Style' , ' edit' , ... 

'Tag' , 'EditTextl' ) ; 

b = uicontrol ( ' Parent ' , H_STAB_IN2 , ... 

'Units ', 'normalized' , ... 

'BackgroundColor' , [0 .752941 0.752941 0.752941], ... 

'FontSize' ,14, ... 

'FontWeight' , 'bold' , ... 

'Position' , [0.358396 0.754682 0.286967 0.151685], ... 

'String', 'CG LOCATION & INERTIAS /FUSELAGE PARAMETERS', ... 

' Style ' , ' text ' , ... 

' Tag ' , ' StaticTextl ' ) ; 
b = uicontrol ( ' Parent ' , H_STAB_IN2 , ... 

'Units ',' normalized' , ... 

'BackgroundColor' , [0.752941 0.752941 0.752941], ... 

'Position' , [0.356475 0.704198 0.171278 0.0458015], ... 

'String' , 'CG Height Above Waterline (ft) ' , ... 

' Style' , ' text ' , ... 

' Tag ' , ' StaticText2 ' ) ; 
b = uicontrol ( ' Parent ' , H_STAB_IN2 , ... 

'Units' , 'normalized' , ... 
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' BackgroundColor ' ,[111], ... 

'Callback' , ' zcg=get (gcbo, ' ' String' ' ) ; S_STAB_INPUT_2 . zcg=str2num ( zc 
g) ; ' , ... 

'Position' , [0.550591 0.705545 0.0985545 0.0478011], ... 

' String' , zcg, - . . 

' Style ' , ' edit ' , ... 

' Tag ' , ' EditTextl ' ) ; 

b = uicontrol ( ' Parent' , H_STAB_IN2 , ... 

'Units ',' normalized' , ... 

'BackgroundColor' , [0.752941 0.752941 0.752941], ... 

'Position' , [0.356475 0.633588 0.172596 0.0496183], ... 

'String', 'CG Fuselage Station (ft)', ... 

' Style' , ' text ' , ... 

' Tag ' , ' StaticText2 ' ) ; 
b = uicontrol ( ' Parent ' , H_STAB_IN2 , ... 

'Units ' , 'normalized' , ... 

'BackgroundColor' ,[111], ... 

'Callback' , 'xcg=get (gcbo, ' 'String' ') ; S_STAB_INPUT_2 .xcg=str2num(xc 
g) ; ' , ... 

'Position' , [0.551905 0.634799 0.0985545 0.0497132], ... 

' String' , xcg, . . . 

'Style' , 'edit' , ... 

' Tag ' , ' Edi tText 1 ' ) ; 

b = uicontrol ( ' Parent ' , H_STAB_IN2 , ... 

'Units ', 'normalized' , ... 

'BackgroundColor' , [0.752941 0.752941 0.752941], ... 

' FontSize' ,6, ... 

'Position' , [0.356475 0.564885 0.172596 0.0477099], ... 

'String', 'CG Position Right of Buttline (ft))', ... 

'Style' , 'text' , ... 

' Tag ' , ' StaticText2 ' ) ; 
b = uicontrol ( ' Parent' , H_STAB_IN2 , ... 

'Units ', 'normalized' , ... 

'BackgroundColor' ,[111], ... 

'Callback' , 'ycg=get (gcbo, ' 'String' ' ) ; S_STAB_INPUT_2 .ycg=str2num (yc 
g) ; ' , ... 

'Position' , [0.551905 0.56979 0.0985545 0.0478011], ... 

' String' ,ycg, . . . 

'Style' , 'edit' , ... 

'Tag' , 'EditTextl ' ) ; 

b = uicontrol ( ' Parent ' , H_STAB_IN2 , ... 

'Units ',' normalized' , ... 

'BackgroundColor' , [0.752941 0.752941 0.752941], ... 

'Position' , [0.356475 0.50478 0.173456 0.0478011], ... 

' String' ,' Ixx (slug ft'^2)', ... 

' Style ' , ' text ' , ... 

' Tag ' , ' StaticText 2 ' ) ; 
b = uicontrol ( ' Parent' , H_STAB_IN2 , ... 

'Units ', 'normalized' , ... 

'BackgroundColor' ,[111], ... 

'Callback' , ' Ixx=get (gcbo, ' 'String' ' ) ,-S_STAB_INPUT_2 . Ixx=str2num( Ix 

X) ; ' , ... 

'Position' , [0.551905 0.506692 0.0985545 0.0478011], ... 

'String' , Ixx, . . . 

'Style ' , ' edit ' , ... 

'Tag' , 'EditTextl' ) ; 

b = uicontrol (' Parent ', H_STAB_IN2 , ... 



196 



' Units normalized' , ... 

'BackgroundColor' , [0.752941 0.752941 0.752941], ... 

'Position' , [0.356475 0.438931 0.173565 0.0496183], ... 

' String ',' lyy (slug ft''2)', ... 

' Style ' , ' text ' , ... 

' Tag ' , ' StaticText2 ' ) ; 
b = uicontrol (' Parent' ,H_STAB_IN2, ... 

'Units' , 'normalized' , ... 

'BackgroundColor' ,[111], ... 

'Callback' , ' Iyy=get (gcbo, ' 'String' ' ) ; S_STAB_INPUT_2 . Iyy=str2num(Iy 

y) ; ' , • • • 

'Position' , [0.551905 0.441683 0.0985545 0.0497132], ... 

' String' , lyy, . . . 

' Style ' , ' edit ' , ... 

' Tag' , ' EditTextl ' ) ; 

b = uicontrol (' Parent' ,H_STAB_IN2, ... 

'Units ', 'normalized' , ... 

'BackgroundColor' , [0.752941 0.752941 0.752941], ... 

'Position' , [0.356475 0.374761 0.173456 0.0478011], ... 

' String' ,' Izz (slug ft'^2)', ... 

' Style' , ' text' , ... 

'Tag' , ' StaticText2 ' ) ; 
b = uicontrol ( ' Parent ' , H_STAB_IN2 , ... 

'Units' , 'normalized' , ... 

'BackgroundColor' ,[111], ... 

'Callback' , ' Izz=get (gcbo, ' ' String' ' ) ; S_STAB_INPUT_2 . Izz=str2num(Iz 

z) ; ' , ... 

'Position' , [0.551905 0.376673 0.0985545 0.0478011], ... 

' String ' , Izz , ... 

' Style' , 'edit' , ... 

'Tag' , 'EditTextl' ) ; 

b = uicontrol ( ' Parent ' , H_STAB_IN2 , ... 

'Units' , 'normalized' , ... 

'BackgroundColor' , [0.752941 0.752941 0.752941], ... 

'Position' , [0.356475 0.304015 0.173456 0.0554493], ... 

' String ',' Ixz (slug ft''2)', ... 

' Style ' , ' text ' , ... 

' Tag ' , ' StaticText2 ' ) ; 
b = uicontrol ( ' Parent ' , H_STAB_IN2 , ... 

'Units' , 'normalized' , ... 

'BackgroundColor' ,[111], ... 

'Callback' , ' Ixz=get (gcbo , ' 'String' ' ) ; S_STAB_INPUT_2 . Ixz=str2num(Ix 
z ) ; ' , ... 

'Position' , [0. 551905 0.313576 0.0985545 0.0478011], ... 

' String' , Ixz , ... 

' Style' , 'edit' , ... 

'Tag' , 'EditTextl' ) ; 

b = uicontrol ( 'Parent' ,H_STAB_IN2, ... 

'Units' , 'normalized' , ... 

'BackgroundColor' , [0.752941 0.752941 0.752941], ... 

'Position' , [0.356475 0.237094 0.17477 0.0535373], ... 

' String' ,' Fuselage Downwash Ratio (page 513 Prouty) ' , ... 

' Style ' , ' text ' , ... 

'Tag' , ' StaticText2 ' ) ; 
b = uicontrol (' Parent ' ,H_STAB_IN2, . . . 

'Units' , 'normalized' , ... 

'BackgroundColor' ,[111], ... 
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'Callback' , ' vfvl=get (gcbo , ' 'String' ' ) ; S_STAB_INPUT_2 . vfvl=str2num ( 
vf vl ) ; ' , ... 

'Position' , [0.551905 0.248566 0.0985545 0.0478011], ... 

' String ' , vfvl , ... 

' Style ' , ' edit ' , ... 

'Tag' , 'EditTextl' ) ; 

b = uicontrol (' Parent ', H_STAB_IN2 , ... 

'Units' , 'normalized' , ... 

'BackgroundColor' , [0.752941 0.752941 0.752941], ... 

' FontSize ' , 14 , ... 

'FontWeight' , 'bold' , ... 

'Position' , [0.68797 0.797753 0.289474 0.0898876], ... 

'String' , 'WING PARAMETERS' , ... 

' Style ' , ' text' , ... 

' Tag ' , ' StaticTextl ' ) ; 
b = uicontrol ( ' Parent' ,H_STAB_IN2, . . . 

'Units ',' normalized' , ... 

'BackgroundColor' , [0 .752941 0.752941 0.752941], ... 

'Position' , [0 . 68594 0.745698 0.173456 0.0458891], ... 

' String' ,' Height Above Waterline (ft)', ... 

' Style ' , ' text' , ... 

' Tag' , ' StaticText2 ' ) ; 
b = uicontrol ( 'Parent' ,H_STAB_IN2, . . . 

' Units ',' normalized' , ... 

'BackgroundColor' , [1 11], ... 

'Callback' , ' hwd=get (gcbo , ' 'String' ' ) ; S_STAB_INPUT_2 . hwd=str2num(hw 
d);', ... 

'Position' , [0.88042 0.74761 0.0985545 0.0478011], ... 

' String' , hwd, . . . 

' Style ' , ' edit' , ... 

'Tag' , 'EditTextl' ) ; 

b = uicontrol ( ' Parent' , H_STAB_IN2 , ... 

'Units ',' normalized' , ... 

'BackgroundColor' , [0.752941 0.752941 0.752941], ... 

'Position' , [0.68594 0.674952 0.17477 0.0497132], ... 

' String' ,' Fuselage Station (ft)', ... 

' Style ' , ' text ' , ... 

' Tag' , ' StaticText2 ' ) ; 
b = uicontrol ( ' Parent ' , H_STAB_IN2 , ... 

'Units' , 'normalized' , ... 

'BackgroundColor ', [1 11], ... 

' Callback' , ' lwd=get (gcbo, ' ' String' ' ) ; S_STAB_INPUT_2 . Iwd=str2num ( Iw 
d) ; ' , ... 

'Position' , [0.881735 0.676864 0.0985545 0.0497132], ... 

' String' , Iwd, . . . 

' Style ' , ' edit' , ... 

'Tag' , 'EditTextl' ) ; 

b = uicontrol ( ' Parent' , H_STAB_IN2 , ... 

'Units ',' normalized' , ... 

'BackgroundColor' , [0.752941 0.752941 0.752941], ... 

' FontSize ' , 6 , . . . 

'Position' , [0.68594 0.609943 0.173456 0.0478011], ... 

' String' ,' Position Right of Buttline (ft)', ... 

' Style ' , ' text' , ... 

' Tag ' , ' StaticText2 ' ) ; 
b = uicontrol ( ' Parent ' , H_STAB_IN2 , ... 

'Units' , 'normalized' , ... 
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' BackgroundColor ' ,[111], ... 

'Callback' , ' ywd=get ( gcbo , ' 'String' ') ; S_STAB_INPUT_2 .ywd=str2mim(yw 
d);', ... 

'Position' , [0.881735 0.611855 0.0985545 0.0478011], ... 

' String ' , ywd, . . . 

'Style' , 'edit' , ... 

'Tag' , ' EditTextl ' ) ; 

b = uicontrol (' Parent ', H_STAB_IN2 , ... 

'Units' , 'normalized' , ... 

'BackgroundColor' , [0.752941 0.752941 0.752941], ... 

'Position' , [0.68594 0.544933 0.17477 0.0478011], ... 

'String' , 'Alpha Zero Lift (degrees) ' , ... 

' Style' , ' text ' , ... 

' Tag ' , ' StaticText2 ' ) ; 
b = uicontrol ( 'Parent' ,H_STAB_IN2, . . . 

'Units' , 'normalized' , ... 

'BackgroundColor' ,[111], ... 

'Callback' , 'alplow=get (gcbo, ' 'String' ' ) ; S_STAB_INPUT_2 . alplow=str2 
num(alplow) ; ' , ... 

'Position' , [0.881735 0.548757 0.0985545 0.0478011], ... 

' String' , alplow, ... 

' Style' , ' edit' , ... 

' Tag ' , ' EditTextl ' ) ; 

b = uicontrol ( ' Parent ' , H_STAB_IN2 , ... 

'Units' , 'normalized' , ... 

'BackgroundColor' , [0.752941 0.752941 0.752941], ... 

'Position' , [0.68594 0.481836 0.173456 0.0497132], ... 

'String' , 'Angle of Incidence (degrees) ' , ... 

' Style' , ' text ' , ... 

' Tag ' , ' StaticText2 ' ) ; 
b = .uicontrol ( ' Parent ' , H_STAB_IN2 , ... 

'Units' , 'normalized' , ... 

'BackgroundColor ', [1 11], ... 

'Callback' , ' iw=get (gcbo, ' 'String' ' ) ; S_STAB_INPUT_2 . iw=str2num(iw) ; 

'Position' , [0.881735 0.483748 0.0985545 0.0497132], ... 

' String' , iw, . . . 

' Style' , ' edit' , ... 

'Tag' , 'EditTextl' ) ; 

b = uicontrol ( ' Parent ' , H_STAB_IN2 , ... 

'Units ', 'normalized' , ... 

'BackgroundColor' , [0.752941 0.752941 0.752941], ... 

'Position' , [0.68594 0.355641 0.17477 0.0478011], ... 

' String' , 'Tip Chord (ft)', ... 

' Style' , ' text' , ... 

' Tag ' , ' StaticText2 ' ) ; 
b = uicontrol ( ' Parent' , H_STAB_IN2 , ... 

'Units' , 'normalized' , ... 

' BackgroundColor ', [1 11], ... 

'Callback' , ' ctw=get (gcbo, ' 'String' ' ) ; S_STAB_INPUT_2 . ctw=str2n\im (ct 
w) ; ' , ... 

'Position' , [0.881735 0.418738 0.0985545 0.0478011], ... 

' String' , ctw, . . . 

' Style' , ' edit' , ... 

' Tag ' , ' EditTextl ' ) ; 

b = uicontrol ( ' Parent ' , H_STAB_IN2 , ... 

'Units' , 'normalized' , ... 
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'BackgroundColor' , [0.752941 0.752941 0.752941], ... 

'Position' , [0.68594 0.416826 0.17477 0.0478011], ... 

' String' , 'Lift Curve Slope', ... 

' Style ' , ' text ' , ... 

' Tag' , ' StaticText2 ' ) ; 
b = uicontrol ( ' Parent ' , H_STAB_IN2 , ... 

'Units ', 'normalized' , ... 

' BackgroundColor ', [1 11], ... 

'Callback' , ' aw=get (gcbo, ' 'String' ' ) ; S_STAB_INPUT_2 . aw=str2num (aw) ; 

'Position' , [0.881735 0.355641 0.0985545 0.0478011], ... 

' String' , aw, . . . 

' Style ' , ' edit ' , ... 

'Tag' , 'EditTextl' ) ; 

b = uicontrol ( ' Parent ' , H_STAB_IN2 , ... 

'Units ', 'normalized' , ... 

'BackgroundColor' , [0.752941 0.752941 0.752941], ... 

'Position' , [0.68594 0.286807 0.17477 0.0535373], ... 

' String' , 'Root Chord (ft)', ... 

' Style ' , ' text ' , ... 

' Tag ' , ' StaticText2 ' ) ; 
b = uicontrol (' Parent ', H_STAB_IN2 , ... 

'Units ', 'normalized' , ... 

'BackgroundColor ', [1 11], ... 

'Callback', ' crw=get (gcbo, ' 'String' ') ; S_STAB_INPUT_2 . crw=str2num(cr 
w) ; ' , ... 

'Position' , [0.881735 0.290631 0.0985545 0.0478011], ... 

' String' , crw, . . . 

' Style ' , ' edit ' , ... 

' Tag' , ' EditTextl ' ) ; 

b = uicontrol ( ' Parent ' , H_STAB_IN2 , ... 

'Units ', 'normalized' , ... 

'BackgroundColor' , [0.752941 0.752941 0.752941], ... 

'Position' , [0.68594 0.217973 0.17477 0.0592734], ... 

' String' , 'Rotor Downwash Ratio (page 489-Prouty) ' , ... 

' Style ' , ' text ' , ... 

' Tag ' , ' StaticText2 ' ) ; 
b = uicontrol ( ' Parent ' , H_STAB_IN2 , ... 

'Units' , 'normalized' , ... 

'BackgroundColor' ,[111], ... 

'Callback' , ' vwvl=get (gcbo, ' 'String' ') ; S_STAB_INPUT_2 . vwvl=str2num( 
vwvl) ; ' , ... 

'Position' , [0. 881735 0.225621 0.0985545 0.0478011], ... 

' String' , vwvl , ... 

' Style ' , ' edit ' , ... 

' Tag ' , ' EditTextl ' ) ; 

b = uicontrol ( ' Parent ' , H_STAB_IN2 , ... 

'Units ', 'normalized' , ... 

'BackgroundColor' , [0 .752941 0.752941 0.752941], ... 

'Position' , [0.68594 0.1587 0.173456 0.0497132], ... 

' String ',' Fuselage Downwash Ratio (page 489-Prouty)', ... 

'Style' , 'text' , ... 

' Tag ' , ' StaticText2 ' ) ; 
b = uicontrol (' Parent ', H_STAB_IN2 , ... 

'Units' , 'normalized' , ... 

'BackgroundColor ', [1 11], ... 
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'Callback' , ' detafdalpfw=get (gcbo, ' 'String' ' ) ; S_STAB_INPUT_2 . detaf d 
alpfw=str2num(detafdalpfw) ; ' , ... 

'Position' , [0.881735 0.162524 0.0985545 0.0478011], ... 

' String' , detafdalpfw, ... 

' Style ' , ' edit ' , ... 

'Tag' , 'EditTextl ' ) ; 

b = uicontrol ( ' Parent ' , H_STAB_IN2 , ... 

'Units' , 'normalized' , ... 

'Callback' , 'global S_SC_INPUT_2; 

S_SC_INPUT_2=S_STAB_INPUT_2 ; stab_control_input_f cn cont2 ' , ... 

'FontSize' ,12, ... 

'FontWeight' , 'bold' , ... 

'Position' , [0.51117 0.1 0.164258 0.0807692], ... 

'String' , 'Continue »' , ... 

'Tag' , ' Pushbutton4 ' ) ; 
b = uicontrol ( ' Parent ' , H_STAB_IN2 , ... 

'Units' , 'normalized' , ... 

'Callback' ,' stab_control_input_fcn back2', ... 

' FontSize ' , 12 , ... 

'FontWeight' , 'bold' , ... 

'Position' , [0.339028 0.0115385 0.164258 0.0807692], ... 

'String', '<< Back', ... 

'Tag' , ' Pushbuttonl ' ) ; 
b = uicontrol (' Parent ', H_STAB_IN2 , ... 

'Units' , 'normalized' , ... 

'Callback' , ' stab_control_input_f cn print' , ... 

' FontSize ' , 12 , ... 

'FontWeight' , 'bold' , ... 

'Position' , [0.510013 0.0114504 0.164219 0.0801527], ... 

' String' ,' Print Screen', ... 

' Tag ' , ' Pushbut t on2 ' ) ; 
b = uicontrol (' Parent ', H_STAB_IN2 , ... 

'Units' , 'normalized' , ... 

'Callback' , ' stab_control_input_f cn cnx' , ... 

' FontSize ' , 12 , ... 

'FontWeight' , 'bold' , ... 

'Position' , [0.339119 0.101145 0.164219 0.0801527], ... 

' String' , 'Cancel ' , ... 

' Tag ' , ' Pushbuttons ' ) ; 
b = uicontrol ( ' Parent ' , H_STAB_IN2 , ... 

'Units' , 'normalized' , ... 

'BackgroundColor' , [0.752941 0.752941 0.752941], ... 

' FontSize' ,14, ... 

' FontWeight ', 'bold' , ... 

'Position' , [0.755357 1.09524 0.296199 0.0831721], ... 

'String' , 'MAIN ROTOR PARAMETERS' , ... 

' Style' , ' text ' , ... 

' Tag ' , ' StaticTextl ' ) ; 
b = uicontrol ( ' Parent ' , H_STAB_IN2 , ... 

'Units' , 'normalized' , ... 

'BackgroundColor' , [0.752941 0.752941 0.752941], ... 

'Position' , [0. 0160214 0.760377 0.1749 0.0528302], ... 

'String' , 'Long Cyclic Pitch per inch deflection (degrees/in)', ... 
'Style' , ' text' , ... 

' Tag ' , ' StaticText2 ' ) ; 

assignin ( ' base ' , ' S_STAB_INPUT_2 ' , S_STAB_INPUT_2 ) ; 
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assignin ( ' base ' , ' S_SC_INPUT_2 ' , S_SC_INPUT_2 ) ; 
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29. stby_scrn.m 



function stby_scrn ( ) 

% This is the machine-generated representation of a MATLAB object 
% and its children. Note that handle values may change when these 
% objects are re-created. This may cause problems with some callbacks. 

% The command syntax may be supported in the future, but is currently 
% incomplete and subject to change. 

% 

% To re-open this system, just type the name of the m-file at the MATLAB 
% prompt. The M-file and its associtated MAT-file must be on your path. 

% GUI screen to see while plots are being generated 

% Written for JANRAD version 6.0 by LT David A. Heathorn 

load stby_scrn 

global H_STBY_SCRN 

H_STBY_SCRN = f igure { ' Color ' , [ 0 . 8 0.8 0.8], ... 

' Colormap' , matO , ... 

'Name' , 'Standby Screen' , ... 

'NumberTitle' , 'off' , ... 

' PointerShapeCData ' ,matl, . . . 

'Position' , [236 243 394 201], ... 

'Tag' , ' Fig2 ' ) ; 

b = uicontrol ( 'Parent' , H_STBY_SCRN, ... 

'Units' , 'points' , ... 

'BackgroundColor' , [0.752941 0.752941 0.752941], ... 

'Position' , [7.5 4.5 278.25 135.75], ... 

' Style ' , ' frame ' , ... 

'Tag' , 'Framel' ) ; 



b = uicontrol { 'Parent' , H_STBY_SCRN, ... 

' Units ' , ' points ' , ... 

'BackgroundColor' , [0 .752941 0.752941 0.752941], ... 

' FontSize ' , 25 , ... 

'Position' , [32.25 95.25 231 37.5], ... 

' String' ,' Please stand-by', ... 

' Style' , ' text' , ... 

' Tag ' , ' StaticTextl ' ) ; 
b = uicontrol ( 'Parent' , H_STBY_SCRN , ... 

'Units ', 'points ' , ... 

'BackgroundColor' , [0.752941 0.752941 0.752941], ... 

' FontSize ' , 15 , ... 

'Position' , [33 18.75 231 37.5], ... 

' String' ,' This could take a minute or two', ... 

' Style' , ' text ' , ... 

'Tag' , 'StaticTextl' ) ; 
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30. Step_pIotter.m 

% Step_plotter 

% Written for JANRAD version 6.0 by LT David A. Heathorn 

global Amat Bmat u C T_STOP T_INC 

D=0; 

t_start=0 ; 

t_inc=T_INC; 

t_stop=T_STOP; 

t=t_start : t_inc : t_stop; 

if u(l)==l 



for j=l : length(C) 
if C(j,j)==l 
figure 

[num, den] =ss2tf (Amat, Bmat { : , 1) , C ( j , : ) ,D) ; 
t 

[y] =step (num, den, t ) ; 
plot (t,y) 

xlabel('time (sec)'} 
grid 
if j==l 

title ( 'Response of x-velocity (u) to Longitudinal Cyclic 

Step Input ' ) 

ylabel ( 'Velocity (ft/sec)') 
elseif j==2 

title ( 'Response of z-velocity (w) to Longitudinal Cyclic 

Step Input ' ) 

ylabel ( 'Velocity (ft/sec)') 
elseif j==3 

title ( 'Response of Pitch Rate (q) to Longitudinal Cyclic 

Step Input' } 

ylabel (' Pitch Rate (rad/sec)') 
elseif j==4 

title ( 'Response of Pitch Angle (theta) to Longitudinal 
Cyclic Step Input') 

ylabel (' Pitch Angle (rad.)') 
elseif j==5 

title ( 'Response of y-veloctiy (v) to Longitudinal Cyclic 

Step Input ' ) 

ylabel ( 'Velocity (ft/sec)') 
elseif j==6 

title (' Response of Roll Rate (p) to Longitudinal Cyclic Step 

Input ' ) 

ylabel ('Roll Rate (rad/sec)') 
elseif j==7 

title ( 'Response of Roll Angle (phi) to Longitudinal Cyclic 

Step Input ' ) 

ylabel ('Roll Angle (rad)') 
elseif j==8 

title ( 'Response of Yaw Rate (r) to Longitudinal Cyclic Step 

Input ' } 
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ylabel('Yaw Rate (rad/sec)') 
elseif j==9 

title ( 'Response of Yaw Angle (psi) to Longitudinal Cyclic 

Step Input' ) 

ylabel ( ' Yaw Angle ( rad) ' ) 

end 

end 

end 

elseif u(2)==l 

for j=l : length (C) 
if C{j,j)==l 
figure 

[num, den] =ss2tf (Amat, Bmat ( : , 1) , C ( j , : ) , D) ; 

[y] =step (num, den, t) ; 
plot (t,y) 

xlabel('time (sec)') 
grid 

xlabeK'time (sec)') 
if j==l 

title ( 'Response of x-velocity (u) to Collective Step Input') 
ylabel ( 'Velocity (ft/sec)') 
elseif j==2 

title ( 'Response of z-velocity (w) to Collective Step Input') 
ylabel ( 'Velocity (ft/sec)'), 
elseif j==3 

title ( 'Response of Pitch Rate (q) to Collective Step Input') 
ylabel (' Pitch Rate (rad/sec)') 
elseif j==4 

title ( 'Response of Pitch Angle (theta) to Collective Step 

Input' ) 

ylabel (' Pitch Angle (rad.)') 
elseif j==5 

title ( 'Response of y-veloctiy (v) to Collective Step Input') 
ylabel ( 'Velocity (ft/sec)') 
elseif j==6 

title ( 'Response of Roll Rate (p) to Collective Step Input') 
ylabel ('Roll Rate (rad/ sec) ' ) 
elseif j==7 

title ( 'Response of Roll Angle (phi) to Collective Step 

Input' ) 

ylabel ('Roll Angle (rad)') 
elseif j==8 

title (' Response of Yaw Rate (r) to Collective Step Input') 
ylabel ('Yaw Rate (rad/sec)') 
elseif j==9 

title ( 'Response of Yaw Angle (psi) to Collective Step 

Input ' ) 

ylabel ('Yaw Angle(rad)') 

end 

end 

end 



elseif u (3 ) ==1 

for j=l : length (C) 
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if C(j,j)==l 
figure 

[num, den] =ss2tf (Amat , Bmat ( : , 1 ) , C { j , : ) , D) ; 

[y] =step (num, den, t) ; 
plot (t,y) 

xlabel ( ' time (sec)') 

grid 

if j==l 

title (' Response of x-velocity (u) to Lateral Cyclic Step 

Input ' ) 

ylabel ( 'Velocity (ft/sec)') 
elseif j==2 

title (' Response of z-velocity (w) to Lateral Cyclic Step 

Input ' ) 

ylabel ( 'Velocity (ft/sec)') 
elseif j==3 

title ( 'Response of Pitch Rate (q) to Lateral Cyclic Step 

Input ' ) 

ylabel (' Pitch Rate (rad/sec)') 
elseif j==4 

title (' Response of Pitch Angle (theta) to Lateral Cyclic 

Step Input ' ) 

ylabel (' Pitch Angle (rad.)') 
elseif j==5 

title (' Response of y-veloctiy (v) to Lateral Cyclic Step 

Input ' ) 

ylabel ( 'Velocity (ft/sec)') 
elseif j==6 

title (' Response of Roll Rate (p) to Lateral Cyclic Step 

Input ' ) 

ylabel ('Roll Rate (rad/sec)') 
elseif j==7 

title (' Response of Roll Angle (phi) to Lateral Cyclic Step 

Input ' ) 

ylabel ('Roll Angle (rad)') 
elseif j==8 

title (' Response of Yaw Rate (r) to Lateral Cyclic Step 

Input ' ) 

ylabel ('Yaw Rate (rad/sec)') 
elseif j==9 

title (' Response of Yaw Angle (psi) to Lateral Cyclic Step 

Input ' ) 

ylabel ( ' Yaw Angle ( rad) ' ) 
end 

end 

end 



elseif u(4)==l 

for j=l : length (C) 
if C(j,j)==l 
figure 

[num, den] =ss2tf (Amat , Bmat ( ; , 1) , C ( j , : ) , D) ; 
[y] =step (num, den, t) ; 
plot (t ,y) 
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to Pedal Step Input') 



xlabel ( ' time (sec)') 
grid 
if j==l 

title ( 'Response of x-velocity (u) 
ylabel { 'Velocity (ft/sec)') 
elseif j ==2 

title ( 'Response of z-velocity (w) to Pedal Step Input') 
ylabel ( 'Velocity (ft/sec)') 
elseif j==3 

title ( 'Response of Pitch Rate (q) to Pedal Step Input') 
ylabel (' Pitch Rate (rad/sec)') 
elseif j==4 

title ( 'Response of Pitch Angle (theta) to Pedal Step Input') 
ylabel (' Pitch Angle (rad.)') 
elseif j==5 

title ( 'Response of y-veloctiy (v) to Pedal Step Input') 
ylabel ( 'Velocity (ft/sec)') 
elseif 3==6 

title (' Response of Roll Rate (p) to Pedal Step Input') 
ylabel ('Roll Rate (rad/sec)') 
elseif j==7 

title ( 'Response of Roll Angle (phi) to Pedal Step Input') 
ylabel ('Roll Angle (rad)') 
elseif j ==8 

title (' Response of Yaw Rate (r) to Pedal Step Input') 
ylabel ('Yaw Rate (rad/sec)') 
elseif j==9 

title (' Response of Yaw Angle (psi) to Pedal Step Input') 
ylabel ( 'Yaw Angle (rad) ' ) 
end 

end 

end 



end 
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31. structure_stab_input.m 

% structure Consruction for JANRAD98 stability_control_input .m 

% Created for JANRAD version 6.0 by LT David A. Heathorn 

S_STAB_INPUT=struct ( . . . 

'IbMb, . . . 

'hmd' ,hmd, . . . 

' Imd ' , Imd , . . . 

' ymd ' , ymd , . . . 

' im ' , im , . . . 

' htd' , htd, • . . 

'ltd' , ltd, . . . 

'ytd' ,ytd, . . . 

'bt' , bt, . . . 

'ct' , ct, . . . 

'Rt' ,Rt 

'at ' , at, . . . 

' ohmt ' , ohmt , . . . 

'Ibt' , Ibt 

' deltas ' , deltas , . . . 

' thetalt ' , thetalt , . . . 

' hvd ' , hvd , . . . 

'Ivd' ,lvd, . . . 

' yvd ' , yvd , . . . 

'alplov' ,alplov, . . . 

' elver tmax' ,clvertmax, . . . 

'qvq' ,qvq, . . . 

' av ' , av , . . . 

'hhd' ,hhd, . . . 

'Ihd' , Ihd, . . . 

' yhd ' , y hd , . . . 

'alploh' ,alploh, . . . 

' ih ' , ih , ... 

' ah ' , ah , . . . 

'qhq' ,qhq, . . . 

' vhvl ' , vhvl , . . . 

' detaf dalpfh' , detafdalpfh, . . . 

' hwd ' , hwd , . . . 

' Iwd' , Iwd, . . . 

' ywd ' , ywd , . . . 

'alplow' ,alplow, . . . 

' iw' , iw, . . . 

' aw ' , aw , . . . 

' ctw' , ctw, . . . 

' erw' , erw, . . . 

' vwvl ' , vwvl , . . . 

' detaf dalpfw' , detaf dalpfw, . . . 

' zcg' , zcg, . . . 

'xcg' ,xcg, . . . 

'yeg' ,ycg, . . . 

' Ixx' , Ixx, . . . 

'lyy' , lyy, . . . 

' Izz ' , Izz , . . . 

' Ixz ' , Ixz , . . . 

' vfvl ' , vfvl , . . . 



208 



'htnd' , htnd, . . . 

' Itnd' , Itnd, . . . 

'ytnd' ,ytnd, . . . 

'dian' , dian, . . . 

' swirl ' , swirl , . . . 

'Ytmaxn' ,Ytmaxn, . . . 

' Ittnd' , Ittnd, . . . 

'dblmddele' , dblmddele, . . . 
'dalinddela' ,dalmddela, . . . 
'dthetomddelc' , dthetomddelc 
'dthetotddelp' , dthetotddelp 
'sidearm' ,sidea3nn, . . . 

' maxr ' , maxr ) ; 



32. stmcture_stab_input_l.nfi 

% structure Consruction for JANRAD98 stability_control_input_l .m 

% Written for JANRAD version 6.0 by LT David A. Heathorn 

S_STAB_INPUT_l=struct ( . . . 

' Ib' , Ib, . . . 

' hind ' , hmd , . . . 

' Imd ' , Imd , . . . 

'ymd' ,yind, . . . 

' im' , im, . . . 

'hvd' ,hvd, . . . 

' Ivd' , Ivd, . . . 

' yvd ' , yvd , . . . 

'alplov' ,alplov, . . . 

'clvertmax' ,clvertmax, . . . 

'qvq' ,qvq, . . . 

' av ' , av , . . . 

'hhd' ,hhd 

'Ihd' ,lhd, . . . 

'yhd' ,yhd, . . . 

'alploh' ,alploh, . . . 

' ih' , ih, . . . 

' ah ' , ah , . . . 

'qhq' , qhq, . . . 

' vhvl ' , vhvl , . . . 

' detafdalpfh' , detafdalpfh, . . . 

'htd' ,htd 

'ltd' , ltd 

'ytd' ,ytd, . . . 

'bt ' , bt , . . . 

' ct ' , ct, . . . 

'Rt' ,Rt, . . . 

' at ' , at, . . . 

' ohmt ' , ohmt , . . . 

'Ibt' , Ibt, . . . 

' delta! ' , delta! , . . . 

' thetalt ' , thetalt ) ; 
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33. structure_stab_input_2.in 

% structure Consruction for JANRAD98 stability_control_input_2 .m 

% Written for JANRAD version 6.0 by LT David A. Heathorn 

S_STAB_INPUT_2=struct ( . . . 

'hwd' ,hwd, . . . 

' Iwd' , Iwd, . . . 

'ywd' ,ywd, . . . 

'alplow' ,alplow, . . . 

' iw' , iw, . . . 

' aw' , aw, . . . 

' ctw' , ctw, . . . 

' crw' , crw, . . . 

' vwvl ' , vwvl , . . . 

'detafdalpfw' , detafdalpfw, . . . 

' zcg' , zcg, . . . 

'xcg' ,xcg, . . . 

'ycg' ,ycg, . . . 

' Ixx' , Ixx, . . . 

' lyy' , lyy, . . . 

' Izz ' , Izz, . . . 

' Ixz ' , Ixz, . . . 

' vfvl ' , vfvl, . . . 

'htnd' ,htnd, . . . 

' Itnd' , Itnd, . . . 

'ytnd' ,ytnd, . . . 

'dian' ,dian, . . . 

' swirl ' , swirl , . . . 

'Ytmaxn' ,Ytmaxn, . . . 

' Ittnd' , Ittnd, . . . 

'dblmddele' ,dblmddele, . . . 

'dalmddela' ,dalmddela, . . . 

' dthetomddelc ' , dthetomddelc , . . . 

' dthetotddelp' , dthetotddelp, . . . 

' sidearm' , sidearm, . . . 

'maxr' ,maxr) ; 
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34. tail_warn.m 



function tail_warn() 

% This is the machine-generated representation of a MATLAB object 
% and its children. Note that handle values may change when these 
% objects are re-created. This may cause problems with some callbacks. 

% The command syntax may be supported in the future, but is currently 
% incomplete and subject to change. 

% 

% To re-open this system, just type the name of the m-file at the MATLAB 
% prompt. The M-file and its associtated MAT-file must be on your path. 

% GUI screen to indicated version is not configured for fan-in-tail or 
NOTAR 

% Created for JANRAD version 6.0 by LT David A. Heathorn 
load tail_warn 

a = figure ( 'Color' , [0.8 0.8 0.8], ... 

' Colormap' ,mat0, ... 

'Name' , 'Tail Warning' , ... 

'NumberTitle' , 'off' , ... 

' PointerShapeCData ' ,matl, . . . 

'Position' , [252 240 402 201], ... 

'Tag' , 'Fig2 ' ) ; 

b = uicontrol (' Parent ', a, ... 

'Units' , 'points' , ... 

'BackgroundColor' , [0.752941 0.752941 0.752941], ... 

' FontSize' ,18, ... 

'Position' , [42.75 39.75 212.25 69.75], ... 

' String' , 'JANRAD is not currently configured for fan- in-tail or 
NOTAR systems . ' , ... 

' Style ' , ' text ' , ... 

' Tag ' , ' StaticTextl ' ) ; 
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35. temp_stab.m 

% structure Consruction for JANRAD98 stability_control_input .m 
% JANRAD 98 VERSION 5.0 



S_STAB_INPUT= struct ( . . . 

'Ib' ,Ib, . . . 

' hmd ' , hmd , . . . 

' Imd' , Imd, . . . 

' ymd ' , ymd , . . . 

' im' , im, . . . 

'htd' ,htd 

'ItdMtd 

'ytd' ,ytd, . . . 

'bt ' , bt , . . . 

'ct ' , ct, . . . 

'Rt' ,Rt, . . . 

'at' ,at, . . . 

' ohmt ' , ohmt , . . . 

'Ibt' ,Ibt, . . . 

' deltas ' , deltas , . . . 

' thetalt ' , thetalt , . . . 

' hvd ' , hvd , . . . 

' Ivd' , Ivd, . . . 

'yvd' ,yvd, . . . 

'alplov' ,alplov, . . . 
'clvertmax' ,clvertmax, . . . 
'qvq' ,qvq, . . . 

' av' , av, . . . 

'hhd' ,hhd, . . . 

'Ihd' ,lhd 

'yhd' ,yhd, . . . 

'alploh' ,alploh, . . . 

' ih' , ih, . . . 

' ah ' , ah , . . . 

'qhq' ,qhq, . . . 

' vhvl ' , vhvl , . . . 

' detafdalpfh' , detafdalpfh, . . . 
' hwd ' , hwd , . . . 

' Iwd ' , Iwd , . . . 

' ywd ' , ywd , . . . 

'alplow' ,alplow, . . . 

' iw' , iw, . . . 

' aw' , aw, . . . 



' ctw' , ctw, . . 

' crw' , crw, . . 
'vwvl' , vwvl, 

' detaf dalpfw 
' zcg' , zcg, . 



'xcg' , 


, xcg, . 


'ycg' , 


,ycg, . 


' Ixx' , 


, Ixx, . 


' lyy' , 


riyy, • 


' Izz ' , 


, Izz, . 


' Ixz ' , 


, Ixz, . 


'vfvl' 


' , vfvl 



, detafdalpfw, . . . 
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'htnd' , htnd, . . . 

' Itnd' , Itnd, . . . 

'ytnd' ,ytnd, . . . 

' dian' , dian, . . . 

' swirl ' , swirl , . . . 

'Ytmaxn' ,Ytmaxn, . . . 

' Ittnd' , Ittnd, . . . 

'dblmddele' ,dblmddele, . . . 
'dalmddela' ,dalmddela, . . . 

' dthetomddelc ' , dthetomddelc 
' dthetotddelp' , dthetotddelp 
' sidearm' , sidearm, . . . 

' maxr ' , maxr ) ; 



36. time_freq_resp.m 



function tiine_freq_resp ( ) 

% This is the machine -genera ted representation of a MATLAB object 
% and its children. Note that handle values may change when these 
% objects are re-created. This may cause problems with some callbacks. 

% The command syntax may be supported in the future, but is currently 
% incomplete and subject to change. 

% 

% To re-open this system, just type the name of the m-file at the MATLAB 
% prompt. The M-file and its associtated MAT-file must be on your path.\ 

% Created for JANRAD version 6.0 by LT David A. Heathorn 

load time_f req_resp 

global C u type_anal Amat Bmat H_TF_RESP H_STAB_OUT T_STOP T_INC 

type_anal=zeros (4,1) ; 

C=zeros (9,9); 
u=zeros (4,1) ; 



H_TF_RESP = figure ( 'Color' , [0 . 8 0.8 0.8], ... 

'Colormap' ,mat0 , ... 

'Name', 'Time and Frequency Response', ... 

'NumberTitle' , 'off ' , ... 

' PointerShapeCData ' , matl , ... 

'Position' , [2 28 798 534], ... 

' Tag' , ' Figl ' ) ; 

b = uicontrol (' Parent ', H_TF_RESP, ... 

'Units' , 'points' , ... 

'BackgroundColor' , [0.752941 0.752941 0.752941], ... 

'Position' , [63.75 203.25 222 161.25], ... 

' Style' , ' frame' , ... 

' Tag ' , ' Framel ' ) ; 

b = uicontrol (' Parent ' ,H_TF_RESP, . . . 

'Units' , 'points' , ... 

'BackgroundColor' , [0.752941 0.752941 0.752941], ... 

'Position' , [324 40.5 223.5 324], ... 

' Style ' , ' frame ' , ... 

' Tag ' , ' Frame2 ' ) ; 

b = uicontrol (' Parent ', H_TF_RESP, ... 

'Units ', 'points ' , ... 

'BackgroundColor' , [0.752941 0.752941 0.752941], ... 

'Position' , [64.5 42 222.75 154.5], ... 

' Style ' , ' frame ' , ... 

' Tag ' , ' Frame3 ' ) ; 

b = uicontrol (' Parent ', H_TF_RESP, ... 

'Units ', 'points ' , ... 

'BackgroundColor' , [0.752941 0.752941 0.752941], ... 

' FontSize' , 18 , ... 

'Position' , [13 .5 375.75 570.75 20.25], ... 

'String' , 'TIME and/or FREQUENCY RESPONSE OF COUPLED SYSTEM', ... 
'Style' , 'text' , ... 
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' Tag ' , ' StaticTextl ' ) ; 

H_LAT = uicontrol (' Parent" , H_TF_RESP, ... 

' Units ' , ' points ", ... 

'BackgroundColor' , [0.752941 0.752941 0.752941] 
' Callback ' , [ ' global u ; ' , . . . 

'if get(gcbo, ' 'Value' ') ==1 . 

'u=[0; 0; 1; 0] ; ' . . . 

' set (H_LONG, ' ' Enable ' ' , ' ' of f ' ' 

' set (H_COL, ' ' Enable ' ' , ' ' of f ' ' 

'set (H_PED, ' 'Enable' ' , ' 'off' ' 

' else, ' , . . . 

'set (H_L0NG, ' 'Enable' ' , ' 'on' ' 

' set ( H_C0L , ' ' Enable ' ' , ' ' on ' ' ) 

' set (H_PED, ' ' Enable ' ' , ' ' on' ' ) 

'end, '],... 

'Position' , [94.5 309 87 21.75], . 

' String' ,' Lateral Cyclic', ... 

'Style' , 'checkbox' , ... 

' Tag ' , ' Checkboxl ' ) ; 

H_LONG = uicontrol ( ' Parent' , H_TF_RESP, 

'Units' , 'points' , ... 

' BackgroundColor ',[ 0 . 752941 0.752941 0.752941] 
' Callback' ,[' global u; ' , . . . 

'if get(gcbo, ' 'Value' ') ==1, '.. . 

'u=[l; 0; 0; 0];'... 

' set (H_LAT, ' ' Enable ' ' , ' ' of f ' ' 

' set (H_COL, ' ' Enable ' ' , ' ' of f ' ' 

' set (H_PED, ' ' Enable ' ' , ' ' of f ' ' 

' else, ' , . . . 

' set (H_LAT, ' ' Enable' ' , ' ' on' ' ) 

' set (H_COL, ' ' Enable ' ' , ' ' on' ' ) 

' set (H_PED, ' ' Enable' ' , ' ' on' ' ) 

' end, '],... 

'Position' , [94.5 278.25 87 21.75] 

' String' ,' Longitudinal Cyclic', . 

' Style ' , ' checkbox ' , ... 

' Tag ' , ' Checkboxl ' ) ; 

H_C0L = uicontrol ( ' Parent' , H_TF_RESP, . 

'Units' , 'points ' , ... 

'BackgroundColor' , [0.752941 0.752941 0.752941] 
'Callback' , [ 'global u; ' , . . . 

'if get(gcbo, ' 'Value '') ==1 ,'.. . 

'u=[0; 1; 0; 0];'... 

' set (H_LAT, ' ' Enable ' ' , ' ' of f ' 

'set (H_LONG, ' 'Enable' ' , ' 'off' '),',... 

'set (H_PED, ' 'Enable' ','' of f . 

' else, ' , . . . 

' set (H_LAT, ' ' Enable ' ' , ' ' on' ' ) , ' , ... 

' set (H_LONG, ' ' Enable ' ' , ' ' on' 

'set (H_PED, ' 'Enable' ','' on' '),',.. . 

' end, '],... 

'Position' , [93 .75 247.5 87 21.75], ... 

'String' , 'Collective' , ... 

' Style' ,' checkbox' , ... 

' Tag ' , ' Checkboxl ' ) ; 

H_PED = uicontrol ( ' Parent ' , H_TF_RESP, . . . 

'Units ', 'points ' , ... 




) , ' 

) 

' 
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'BackgroundColor' , [0.752941 0.752941 0.752941], 
'Callback' ,[ 'global u; ' , . . . 

'if get(gcbo, '' Value '') ==1 ,'.. . 

'u=[0; 0; 0; 1];'... 

' set (H_LAT, ' 'Enable' ' , ' 'off' 

'set (H_C0L, ' 'Enable' ' , ' 'off' 

' set (H_L0NG, ' ' Enable ' ' , ' ' of f ' 

' else 

' set (H_LAT, ' ' Enable on' . 

' set (H_C0L, ' ' Enable on' . 

' set (H_L0NG, ' ' Enable ' ' , ' ' on' 

' end 

'Position' , [94. 5 214.5 87 21.75], ... 

' String ' , ' Pedal ' , ... 

'Style' , 'checkbox' , ... 

'Tag' , 'Checkboxl' ) ; 

b = uicontrol ( ' Parent' , H_TF_RESP, . . . 

'Units' , 'points' , ... 

'BackgroundColor' , [0.752941 0.752941 0.752941], 
' FontSize ' , 14 , ... 

'Position' , [94.5 174 180 18.75], ... 

' String' , 'Type of Analysis', ... 

' Style' , ' text' , ... 

' Tag ' , ' StaticText2 ' ) ; 
b = uicontrol (' Parent ', H_TF_RESP, ... 

'Units' , 'points' , ... 

'BackgroundColor' , [0.752941 0.752941 0.752941], 
'Callback' , [ 'global type_anal ; ' . . . 

'if get(gcbo, ' 'Value '') ==1 ,'.. . 

' type_anal { 1 ) =1 ; ' . . . 

'elseif get (gcbo, ' 'Value' ') ==0, ',.. . 

' type_anal { 1 ) =0 ; ' , . . . 

' end, '],... 

'Position' , [94.5 141.75 180 21.75], ... 

' String' ,' Time response to unit step', ... 

' Style ' , ' checkbox ' , ... 

'Tag' , 'Checkboxl' ) ; 

b = uicontrol ( ' Parent ' , H_TF_RESP, . . . 

'Units ', 'points ' , ... 

'BackgroundColor' , [0.752941 0.752941 0.752941], 
'Callback' , [ 'global type_anal ; ' . . . 

'if get (gcbo, ' 'Value '') ==1 ,'.. . 

' type_anal { 2 ) =1 ; ' . . . 

'elseif get (gcbo, ' 'Value '') ==0 ,',.. . 

' type_anal ( 2 ) =0 ; ' , . . . 

' end, '],... 

'Position' , [94.5 112.5 179.25 21.75], ... 

'String' , 'Time response to unit impulse' , ... 

'Style' , 'checkbox' , ... 

'Tag' , 'Checkboxl' ) ; 

b = uicontrol (' Parent ', H_TF_RESP, ... 

'Units' , 'points' , ... 

'BackgroundColor' , [0.752941 0.752941 0.752941], 
'Callback' , [ 'global type_anal ; ' . . . 

'if get (gcbo, ' 'Value '') ==1 ,'.. . 

' type_anal ( 3 ) =1 ; ' . . . 
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'elseif get (gcbo, ' 'Value' ') ==0 . 

' type_anal ( 3 ) = 0 ; ' , . . . 

' end 

'Position' , [94.5 81.75 181.5 21.75], ... 
'String' , 'Bode plots' , ... 

' Style ' , ' checkbox ' , ... 

' Tag ' , ' Checkboxl ' ) ; 
b = uicontrol (' Parent ' ,H_TF_RESP, . . . 

' Units ' , ' points ' , ... 

'BackgroundColor' , [0.752941 0.752941 0.752941] 
'Callback' , [ 'global type_anal ; ' . . . 

'if get(gcbo, ' 'Value' ') ==1, '.. . 

' type_anal ( 4 ) =1 ; ' . . . 

'elseif get (gcbo, ' 'Value' ') ==0 . 

' type_anal ( 4 ) =0 ; ' , . . . 

' end ,'],... 

'Position' , [94.5 51.75 181.5 21.75], ... 

'String' , 'Eigen values' , ... 

' Style ' , ' checkbox ' , ... 

' Tag ' , ' Checkboxl ' ) ; 

b = uicontrol ( ' Parent ' , H_TF_RESP, . . . 

'Units' , 'points' , ... 

'BackgroundColor' , [0.752941 0.752941 0.752941] 
' FontSize' , 14 , ... 

'Position' , [94.5 340.5 180 18.75], ... 

' String' , ' Input Channel' , ... 

' Style' , ' text ' , ... 

' Tag ' , ' StaticText2 ' ) ; 
b = uicontrol (' Parent' ,H_TF_RESP, ... 

' Units ', 'points ' , ... 

'BackgroundColor' , [0.752941 0.752941 0.752941] 
' FontSize' ,14, ... 

'Position' , [339.75 340.5 180 18.75], ... 

' String ' , ' Response ' , ... 

' Style' , ' text' , ... 

' Tag ' , ' StaticText2 ' ) ; 

b = uicontrol (' Parent ', H_TF_RESP, ... 

'Units' , 'points' , ... 

'BackgroundColor' , [0.752941 0.752941 0.752941] 

'Callback' , [ 'global C 

'if get (gcbo, ' 'Value' ') ==1, '.. . 

'C(l,l)=l; ' . . . 

'elseif get (gcbo, ' 'Value' ') ==0 ,',.. . 

'C(l, 1)=0; ' , . . . 

' end, '],... 

'Position' , [338.25 309.75 87 21.75], ... 

' String' , 'u' , ... 

' Style' ,' checkbox' , ... 

' Tag ' , ' Checkboxl ' ) ; 
b = uicontrol ( 'Parent' ,H_TF_RESP, ... 

'Units' , 'points' , ... 

'BackgroundColor' , [0.752941 0.752941 0.752941] 
'Callback' , [ 'global C ; ' . . . 

'if get (gcbo, ' 'Value' ') ==1, '.. . 

'C(5,5)=l; ' . . . 
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'elseif get (gcbo, ' 'Value '') ==0 . 

'C(5,5)=0; ' , . . . 

' end, 

'Position' , [339 280.5 87 21.75], ... 

' String' , ' v' , ... 

' Style ' , ' checkbox' , ... 

' Tag ' , ' Checkboxl ' ) ; 
b = uicontrol (' Parent ', H_TF_RESP, ... 

'Units' , 'points' , ... 

' BackgroundColor ', [0 . 752941 0.752941 0.752941] 
'Callback' ,[ 'global C ; ' . . . 

'if get (gcbo, ' 'Value' ') ==1, '.. . 

'C(2,2)=l; ' . . . 

'elseif get (gcbo, ' 'Value '') ==0 ,',.. . 

'C(2,2)=0; ' , . . . 

' end ,'],... 

'Position' , [339 249 87 21.75], ... 

' String' , ' w' , ... 

'Style' , 'checkbox' , ... 

' Tag ' , ' Checkboxl ' ) ; 
b = uicontrol (' Parent ' ,H_TF_RESP, . . . 

'Units ', 'points ' , ... 

'BackgroundColor' , [0.752941 0.752941 0.752941] 
'Callback' ,[ 'global C ; ' . . . 

'if get (gcbo, ' 'Value' ') ==1, '.. . 

'C(4,4)=l; ' . . . 

'elseif get (gcbo, ' 'Value' ') ==0 ,',.. . 

'C(4,4)=0; ' , . . . 

' end ,'],... 

'Position' , [339 216.75 87 21.75], ... 

' String' ,' Pitch' , ... 

' Style ' , ' checkbox' , ... 

' Tag ' , ' Checkboxl ' ) ; 
b = uicontrol (' Parent ' ,H_TF_RESP, . . . 

'Units ', 'points' , ... 

'BackgroundColor' , [0.752941 0.752941 0.752941] 
' Callback' ,[' global C ; ' . . . 

'if get (gcbo, ' 'Value' ') ==1, '.. . 

'C(7,7)=l; ' . . . 

'elseif get (gcbo, ' 'Value '') ==0 ,',.. . 

'C(7,7)=0; ' , . . . 

'end, '],... 

'Position' , [339 186.75 87 21.75], ... 

' String' , 'Roll ' , ... 

'Style' , 'checkbox' , ... 

' Tag ' , ' Checkboxl ' ) ; 
b = uicontrol ( 'Parent' ,H_TF_RESP, ... 

'Units ', 'points ' , ... 

'BackgroundColor' , [0.752941 0.752941 0.752941] 
'Callback' ,[ 'global C ; ' . . . 

'if get (gcbo, ' 'Value' ') ==1, '.. . 

'C(9,9)=l; ' . . . 

'elseif get (gcbo, ' 'Value '') ==0 ,',.. . 

'C(9,9)=0; ' , . . . 

' end, '],... 

'Position' , [339 156.75 87 21.75], ... 

' String' , 'Yaw' , ... 
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'Style' , 'checkbox' , ... 

' Tag ' , ' Checkboxl ' ) ; 

b = uicontrol {' Parent ' ,H_TF_RESP, . . . 

'Units' , 'points' , ... 

'BackgroundColor' , [0.752941 0.752941 0.752941], ... 

'Callback' ,[' global C ; ' . . . 

'if get(gcbo, ' 'Value' '} ==1, '.. . 

'C(3,3)=l; ' . . . 

'elseif get (gcbo, ' 'Value' ') ==0 . 

'C(3,3)=0; ' , . . . 

' end, '],... 

'Position' , [339 124.5 87 21.75], ... 

' String' ,' Pitch Rate', ... 

'Style' , 'checkbox' , ... 

' Tag ' , ' Checkboxl ' ) ; 
b = uicontrol ( 'Parent' ,H_TF_RESP, .. . . 

'Units ', 'points ' , ... 

'BackgroundColor' , [0.752941 0.752941 0.752941], ... 

'Callback' , [ 'global C ; ' . . . 

'if get {gcbo, ' 'Value' ') ==1, '.. . 

'C(6, 6)=1; ' . . . 

'elseif get (gcbo, ' 'Value' ') ==0 ,',.. . 

'C(6, 6)=0; ' , . . . 

' end ,'],... 

'Position' , [339 93.75 87 21.75], ... 

' String' ,' Roll Rate', ... 

'Style' , 'checkbox' , ... 

'Tag' , 'Checkboxl' ) ; 
b = uicontroK ' Parent ', H_TF_RESP, ... 

'Units' , 'points' , ... 

'BackgroundColor' , [0.752941 0.752941 0.752941], ... 

'Callback' , ['global C ; ' . . . 

'if get (gcbo, ' 'Value' ') ==1, '.. . 

'C(8, 8)=1; ' . . . 

'elseif get (gcbo, ' 'Value' ') ==0 ,',.. . 

'C(8, 8)=0; ' , . . . 

' end ,'],... 

'Position' , [339 62.25 87 21.75], ... 

'String' , 'Yaw Rate' , ... 

'Style' , 'checkbox' , ... 

' Tag ' , ' Checkboxl ' ) ; 

b = uicontrol ( ' Parent ' , H_TF_RESP, . . . 

' Units ' , ' points ' , ... 

' BackgroundColor ', [1 11], ... 

'Callback' , [ 'global T_INC ; ' . . . 

' T_INC=get (gcbo, ' 'String' ' ) ; T_INC=s tr2num (T_INC) ; ' ] 
'Position' , [443.25 200.25 63 15] , ... 

'String' ,T_INC, ... 

' Style' , ' edit' , ... 

'Tag' , 'EditTextl' ) ; 

b = uicontrol ( ' Parent' , H_TF_RESP, . . . 

' Units ' , ' points ' , ... 

'BackgroundColor' ,[111], ... 

'Callback' , [ 'global T_STOP ; ' . . . 

'T_STOP=get (gcbo, ' 'String' ' ) ;T_ST0P=str2num(T_ST0P) 
'Position' , [443.25 252 63 15], ... 
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' string ' , T_STOP , ... 

' Style' , ' edit ' , ... 

'Tag' , 'EditTextl' ) ; 

b = uicontrol ( ' Parent ' , H_TF_RESP, . . . 

'Units' , 'points' , ... 

' BackgroundColor' , [0 .752941 0.752941 0.752941] 
'Position' , [440.25 267.75 69 17.25], ... 

' String' ,' Stop Time (sec)', ... 

' Style ' , ' text ' , ... 

' Tag ' , ' StaticText3 ' ) ; 
b = uicontroK ' Parent ', H_TF_RESP, ... 

'Units' , 'points' , ... 

'BackgroundColor' , [0.752941 0.752941 0.752941] 
'Position' , [438.75 215.25 69 17.25], ... 

'String' , 'Increment (sec) ' , ... 

' Style' , ' text ' , ... 

' Tag ' , ' StaticText3 ' ) ; 

b = uicontrol ( ' Parent ' , H_TF_RESP, . . . 

'Units' , 'points' , ... 

'Callback' , 'global Amat Bmat C u T_STOP T_INC 
type_anal; time_freq_resp_fcn cont' , ... 

' FontSize' , 14 , ... 

'Position' , [311.25 5.25 105.75 27], ... 

' String' , 'CONTINUE »' , ... 

' Tag ' , ' Pushbuttonl ' ) ; 
b = uicontrol (' Parent ', H_TF_RESP, ... 

'Units' , 'points' , ... 

'Callback' ,' global Amat Bmat C u T_STOP T_INC 
type_anal ; time_freq_resp_fcn back', ... 

' FontSize' , 14 , ... 

'Position' , [177 5.25 105.75 27], ... 

'String', '« BACK', ... 

' Tag ' , ' Pushbuttonl ' ) ; 



assignin( 'base' , 'H_LONG' ,H_LONG) 
assignin( 'base' , 'H_LAT' ,H_LAT) ; 
assignin ( 'base' , 'H_COL' ,H_COL) ; 
assignin ( 'base' , ' H_PED' , H_PED) ; 
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37. time_freq_resp_fcn.m 

function time_f req_resp_f cn (Action) 

% Written for JANRAD version 6.0 by LT David A. Heathorn 

global Amat Bmat u C type_anal time_vec H_STBY_SCRN H_TF_RESP H_STAB_0UT 
T_INC T_ST0P 



if isempty (nargin) 
return 

end 



switch Action 
case 'cont' 

stby_scrn 
pause (1) 

if type_anal ( 1) ==1 
step_plotter 

end 

if type_anal (2 ) ==1 
imp_plotter 

end 

if type_anal (3 ) ==1 
bode_plotter 

end 

if type_anal (4) ==1 
eigen_plotter 

end 

close (H_STBY_SCRN) 

case 'back' 
stab_out_l 
close (H_TF_RESP) 



end 
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38. Trim.m 



% Trim.m 

% Trim routine for collective/cyclic. 

% JANRAD 98 VERSION 5.0 

% Modified for JAJRAD version 6.0 by LT David A. Heathorn 

global RADSPC_VAL NL_TWIST_VAL NEW_AUX_VAL FIX_TPP_VAL NEW_TPP 
lamdaT_trim 

if -exist ( 'STAB_ON' ) 

if get (H_AS, 'Value' ) ==1 

IT_PARAM=' AIRSPEED' ; 

IT_UNIT= ' KTS ' ; 
elseif get (H_AL, 'Value' ) ==1 
IT_PARAM= ' ALTITUDE ' ; 

IT_UNIT='FT' ; 

elseif get (H_GW, 'Value ') ==1 
IT_PARAM= ' GROSS WEIGHT ' ; 

IT_UNIT='LBS' ; 
elseif get (H_BT, 'Value ') ==1 
IT_PARAM= ' BLADE TWIST ' ; 

IT_UNIT= ' DEG ' ; 

elseif get (H_BTR, 'Value' ) ==1 

IT_PARAM= ' BLADE TAPER RATIO ' ; 

IT_UNIT= ' ' ; 

elseif get (H_SOT, 'Value' )==1 
IT_PARAM= ' START OF TAPER'; 

IT_UNIT= ' FT ' ; 

elseif get (H_WSA, 'Value' ) ==1 
IT_PARAM= ' WING SPAN AREA' ; 

IT_UNIT='FT''2 ' ; 
elseif get (H_RBR, 'Value ') ==1 

IT_PARAM= ' ROTOR BLADE RADIUS ' ; 

IT_UNIT= ' FT ' ; 

elseif get (H_RBS, 'Value' ) ==1 

IT_PARAM= ' ROTOR BLADE SPEED'; 

IT_UNIT= ' RAD/ SEC ' ; 

end 

end 

% Following was added to adjust flight conditions for UH-60A runs 
%if Vinf/1. 68781 < 50 
% Afh=35; 

% PA=2500; 

% temp=68; 

% GW=17377; 

% CLhoriz=0; 

%elseif Vinf/1. 68781 <= 90 
% Afh=32; 

% PA=2500; 

% temp=68; 

% GW=17377; 

% CLhoriz=-.l; 

%elseif Vinf/1. 68781 <= 140 
% Afh=30; 
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% PA=2500; 

% temp=68; 

% GW=17300; 

% CLhoriz=-0 . 3 ; 

%else 

% Afh=28; 

% PA=2500; 

% terap=68; 

% GW=17000; 

% CLhoriz=-0 . 5 ; 

%end 

set (H_STATUS, 'String' , 'EXECUTING ROTOR TRIM ROUTINE') 

set (H_STATUS1, 'String' ,[ 'RUN ELAPSED TIME IS ' num2str ( f ix ( toe) ) 

SECONDS ' ] ) 

if -exist ( 'STAB_ON' ) 

if get (H_NI, 'Value' ) ==1 
set ( H_STATUS3 , ' String ' , ' ' ) 
else 

set (H_STATUS3 , 'String' ,[ 'ITERATION PARAMETER: ' IT_PARAM ' = ' 

nuiti2str (itervar) num2str ( IT_UNIT) ] ) 
end 

end 

pause (3 ) 

% *** calculation of required parameters *** 



rho=. 002377* (- . 000031*PA+ (- . 002*temp+l . 118 ) ) ; 



% *** first guess at rotor profile drag ( H force) *** 

if Vinf < 16.9, 

Drotor=0; 

else 

Drotor=Vinf * (rho/ . 002377 ) ; 
end 



q=0 . 5*rho*Vinf ^^2 ; 



Adisk=pi*R'^2 ; 

Vtip=omega*R; 
temp_ranlc=temp+459 . 67 ; 
spd_snd=49 . l*sqrt (temp_rank) ; 

% Section added to establish maximum tip speed 
%if (Vtip+Vinf ) /spd_snd>0 . 87 
% spd_max=0 . 87*spd_snd 
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% Vtip=spd_max-Vinf 
% omega=Vtip/R 
%end 

% Section added to set wing lift at a certain value and determine 
% the required wing CL %% This is for compound helos%% 

%if Vinf>=160*l. 68781 
% perclift= 0.7; 

% Lwing=GW*perclif t 

% CLwing= Lwing/ (q*Swing) 

%if Vinf>=110*l. 68781 

% perclift=.255+. 00293* (Vinf- (110*1 . 68781) ) 

% Lwing=GW*perclif t 

% CLwing= Lwing/ (q* Swing) 

%else 

% Lwing=q*CLwing * Swing ; 

%end 

Lwing=q*CLwing* Swing; 

Dfuse=q*Afh; 

CDwing=CDowing+ (CLwing'^2/ (ewing*pi* (bwing^2/Swing) ) ) ; 

CDhoriz=CDohoriz+ (CLhoriz'^2/ ( . 8*pi* (bhoriz^2/Shoriz ) ) ) ; 

CDvert=CDovert+ (CLvert''2/ ( . 8*pi* (bvert''2/Svert ) ) ) ; 

Dwing=q*CDwing* Swing ; 

Dhoriz=q*CDhoriz*Shoriz; 

Dvert=q*CDvert*Svert ; 

Dftotal= (Dfuse+Dwing+Dhoriz+Dvert) ; 

% This section is for compound helos, adjustment of aux thrust 
efficiency with airspeed 
if Vinf/1.6878K=70 
AUXEFF=.650; 

elseif Vinf/1.6878K=100 

AUXEFF=.65+.0025* ( (Vinf /I . 68781) -70) ; 
elseif Vinf/1.68781<=160 

AUXEFF=. 725+. 0025* ( (Vinf /I . 68781) -100) ; 
elseif Vinf/1.68781<=210 

AUXEFF=.85+. 00007* ( (Vinf /1 . 68781 ) -160 ) ; 
else 

AUXEFF=.847; 

end 

% This section provided aux thrust schedule for compound helo 
switch NEW_AUX_VAL 
case 0 

Dftotal= (Dfuse+Dwing+Dhoriz+Dvert) -Taux; 
case 1 

if PA==8000 

Taux=16*Vinf /I .68781; % linear increase in aux thrust up to 210 

knots 
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S_PERF_INPUT . Taux=Taux ; 

S_USER_INPUT . Taux=Taux; 
elseif PA==5000 

Taux=17 . 024*Vinf /I . 68781; % linear increase in aux thrust up to 

210 knots 

S_PERF_INPUT . Taux=Taux ; 

S_USER_INPUT . Taux=Taux; 
elseif PA==0 

Taux=Df total ; 

S_PERF_INPUT . Taux=Taux; 

S_USER_INPUT . Taux=Taux ; 

end 

end 

Lhoriz=q*CLhoriz*Shoriz ; 

Lvert=q*CLvert*Svert ; 

Lftotal=Lwing+Lhoriz ; 
if FIX_TPP_VAL==1 

alphaT=NEW_TPP; %set tip path angle 

else 

alphaT=atan2 ( (Df total+Drotor) , (GW-Lf total) ) ; 

end 

mu=Vinf*cos (alphaT) /Vtip; 



% *** thrust calculation *** 

if Vinf < 16.9, 

T=(l+ (0.4*Afv/Adisk) ) *GW; 
else 

T= (GW-Lf total) /cos (alphaT) ; 

end 

CT=T/ (Adisk*rho*Vtip^2) ; 

%Values to check output 

% *** setup blade radius elements, azimuth elements, 

% induced velocity distributions, and determination 

% of coning angle and tip loss parameter *** 

B=l-(sqrt(2*CT) /b) ; 

Reff=B*R; 

Rbar=Ref f-e; 

if RADSPC_VAL==1 

NEW_rl= [NEW_r, Ref f/R] ; 
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n= 1 eng t h ( NEW_r 1 ) ; 
dr=diff (NEW_rl) *R; 
r=(NEW_rl (l:n-l) *R)+dr/2; 
else 

dr= (Ref f -grip) /nbe; 

r=grip : dr : Ref f-dr; , r=r+dr/2 ; 

end 

if NL_TWIST_VAL==1 

NL_TWIST=NL_TWIST/57 . 3 ; 
n=length(NL_TWIST) ; 
if RADSPC_VAL==1 

y=( (Reff/R) -NEW_r(n) ) * ( (NL_TWIST(n) -NL_TWIST (n-1 } ) / (NEW_r (n) - 
NEW_r (n-1) ) ) ; 
else 

y=( (Reff/R) -r(n) )* ( (NL_TWIST (n) -NL_TWIST ( n-1 ) )/(r(n)- r(n-l) ) ) 
end 

NL_TWIST1= [NL_TWIST (NL_TWIST (n) +y) ] ; 
m=length(NL_TWISTl) ; 
dTW=diff (NL_TWIST1) ; 
twist=(NL_TWISTl (l:m-l) )+dTW/2; 
betat=twist; 
else 

betat=twist* (0 , 7- (r/R) ) ; 



end 

rTl=0.7;,% *** first guess at rT *** 

RbarT=rTl*Rbar; 
mblade=wblade/32 . 17 ; 

betao=asin( (T/b*RbarT-( .5* (R-e) +e) *wblade) / ( ( .5* (R- 
e) +e) ''2*omega^2*mblade) ) ; 

psi=0 : 360/naz : 360-360/naz ; , psi=psi ' /57 . 3 ; 



%% set up vector of blade element chords and then varies them as 
%% requested with the blade taper and blade taper start position 
%% rchord=root chord 

%% cblade=vector of blade element chord lengths 
%% tr=taper ratio (tip/root) 

%% trst=taper ratio start position (r/R) 



cblade=rchord*ones ( size (r) ) ; % gives all elements same chord length 

initially 
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if tr==0 
tr=l ; 

end 



% prevents division by zero later in code 
% in case 0 is enter for taper ratio instead 
% of 1 for no taper 



if trst==0 

slope= (rchord-rchord* tr) / (Ref f-grip) ; % Modifies each element 



cblade=cblade-slope* (r-grip) ; 
tchord=cblade (nbe) ; 
mchord=sum (cblade) /nbe; 



else 



% chord length wrt input 
% taper ratio which has been 
% been converted into a slope 
% top portion takes into 
% account the possibility that 



slope= ( rchord-rchord* tr) / (R* (1-trst) ) ; 
really at 



z=f ix (nbe* trst ) ; 
portion 

if z<=l 

z = l; 



% a 0 start position is 



the start of the aero 



% prevents beginning index fm being zero 



end 

cblade ( z :nbe) =cblade ( z :nbe) - (r ( z :nbe) -r ( z) ) *slope; 
tchord=cblade (nbe) ; 
mchord=sum( cblade) /nbe; 

end 



% *** induced velocity determination *** 

if Vinf < 16.9, 

A=4*pi ; 

Bv= (b/2 ) *omega*a. * cblade; 
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Tv=0; 



delT=T-Tv; 

while abs(delT) > .01*T % Prouty Eqns for Hover 

thetav=betat+thetao ; 

C= (-b/2) . *cblade*omega'^2 . *r*a. *thetav; 

vi=(-Bv+sqrt(Bv.^2-(4*A*C) ) ) / (2*A) ; 

dTv= (b/2 ) *rho* ( (omega*r) . ^^2 ) *a . * ( thetav- 
(vi . / (omega*r) ) ) . *cblade . *dr; 

Tv=sum(dTv) ; 

delT=T-Tv; 

if delT < 0, 

thetao=thetao-0 . 5*thetao*abs (delT/T) ; 
else 

thetao=thetao+0 . 5*thetao*abs (delT/T) ; 
end 

end 

else % Wheatley Eqn for Fwd fit 

lamdaT=0 ; 

1 amda= 1 ; 

while abs (lamdaT-lamda) >le-4 
1 amda = 1 amdaT ; 

lamdaT=mu*sin(alphaT) +0 .5*CT/sqrt ( lamdaT'^2+mu'^2 ) 

end 

vi=lamdaT* Vtip-Vinf *sin ( alphaT ) ; 
vi=vi*ones (size (r) ) ; 
end 



% *** first guess at theta *** 
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thetalc=0.035* { { 0 . 0006e-3 *Vinf ^2+0 . 244e-3 *Vinf ) /0.105) ; 
thetals=-0.087* { ( 0 . 0006e-3 *Vinf ^2+0 . 244e-3 *Vinf ) /0.105) ; 
theta=thetao+thetalc . *cos (psi) +thetals . *sin(psi) ; 



% *** rotor trimming routine *** 



set (H_STATUS, 'String' , 'TRIMMING COLLECTIVE' ) 

set (H_STATUS1, 'String' ,[ 'RUN ELAPSED TIME IS ' num2str ( f ix ( toe) ) 
SECONDS ' ] ) 
pause (3 ) 

set (H_STATUS2, 'String' , " ) 



k=l; 

error0=(T*.02)+l; 



while abs(errorO) > T*.02 

set (H_STATUS2, 'String' ,[ 'COLLECTIVE TRIM ROUTINE IS ON ITERATION # 
' , num2str (k) ] ) 

set (H_STATUS1, 'String' ,[ 'RUN ELAPSED TIME IS ' num2str ( fix(toc) ) ' 

SECONDS ' ] ) 

Tpsi=zeros (size (psi ) ) ; 

Npsi=zeros (size(psi) ) ; 
thrcalc 

if k>l, % Eccles change: These three lines were added, 
errorl ; 
end 

errorO=T- (mean (Tpsi ) *b) ; 
if errorO < -T*.02, 

thetao=thetao-0 . 35* thetao*abs ( 1 . 5 *errorO/T) * ( 1-mu) ; 
elseif errorO > T*.02, 

thetao=thetao+0 . 35*thetao*abs (1 . 5*errorO/T) * (1-mu) ; 
end 
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theta=thetao+thetalc . *cos (psi) +thetals . *sin (psi) ; 



if k > 1, 

if abs( error 0) > abs(errorl), 
clc 



trim_warning 

set (H_GO, ' Enable' , 'off' ) ; 
set (H_RES, 'Enable' , 'off' ) ; 
set (H_RUPT, 'Enable' , 'off' ) ; 
set (H_BK, 'Enable' ,'on'); 
error {'*** Did Not Trim ***') 
end 



end 

errorl=errorO ; 
k=k+l; 
end 



set (H_STATUS, 'String' , 'TRIMMING CYCLIC' ) 

set (H_STATUS1, 'String' ,[ 'RUN ELAPSED TIME IS ' num2str ( f ix ( toe ) ) ' 

SECONDS' ] ) 

set (H_STATUS2 ,' String' ,'' ) 
pause (3 ) 



t0=clock; 

k=l; 

error0={ { (T/b) *rTl* (R-grip) ) * .04)+l; 

while errorO > ( (T/b) *rTl* (R-grip) )*. 04 

set (H_STATUS2, 'String' ,[ 'CYCLIC TRIM ROUTINE IS ON ITERATION # 

' ,num2str (k) ] ) 

set (H_STATUS1, 'String' ,[ 'RUN ELAPSED TIME IS ' num2str ( f ix ( toe ) ) ' 

SECONDS ' ] ) 

time=etime (eloek, tO) ; 
if time > 15, 

set (H_STATUS, ' String' , ' STILL TRIMMING . . . ' ) 

set (H_STATUS1, 'String' ,[ 'RUN ELAPSED TIME IS ' num2str ( f ix ( toe) ) ' 

SECONDS ' ] ) 

set (H_STATUS2, 'String' ,[ 'CYCLIC TRIM ROUTINE IS ON ITERATION 
# ' , num2str (k) ] ) 
pause (2 ) 
t0=eloek; 

end 
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Mpsi { : , k) = zeros { size (psi ) ) ; 
tmcalc 

theta= [theta theta (:, k) ] ; 

Mpsi=[Mpsi Mpsi{:,k)]; 

% *** calculation of initial dthetadM *** 

if k < 2, 

theta ( : ,k+l)=theta( : , k) +0 . 25/57 . 3 ; 

Mpsi ( : , k+1) =zeros (size (psi ) ) ; 

k=k+l; 

tmcalc 

k=k-l; 

dthetadM= (theta ( : , k+1) -theta ( : , k) ) . / (Mpsi ( : , k+1) -Mpsi ( : , k) ) ; 
end 

% *** calculation of M first harmonic parameters *** 

Mlc=2*sum(Mpsi ( : , k) . *cos (psi) ) /naz; 

Mls=2*sum(Mpsi ( : ,k) . *sin(psi) ) /naz; 

% ★** removal of first harmonic terms from Mpsi *** 

Mpsi ( : , k+1 ) =Mpsi ( : , k) -Mlc . *cos (psi) -Mis . *sin (psi ) ; 
delM=Mpsi ( : , k+1) -Mpsi (:,k); 
error 0=max (delM) -min (delM) ; 

if k > 1, 

if errorO > errorl. 
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clc 

trim_warning 

set (H_GO, ' Enable' , ' of f ' ) ; 
set (H_RES, 'Enable' , 'off ' ) ; 
set (H_RUPT, ' Enable ' , 'of f ' ) ; 
set (H_BK, ' Enable ' , ' on' ) ; 
error { ' * * * END OF PROGRAM * * * ' ) 

end 

end 

errorl=errorO ; 

% *** calculation of new theta *** 



delM=0 .5* (1-mu) *delM; 

theta { : , k+1) =theta { : , k) + (dthetadM. *delM) ; 

if errorO <= ( (T/b) *rTl * (R-grip) ) * . 04 , 

thetalc=2*sum( theta ( : , k) . *cos (psi) ) /naz ; 
thetals=2* sum (theta ( : , k) . *sin (psi) ) /naz ; 
else 

thetalc=2* sum (theta ( : , k+1) . *cos (psi) ) /naz; 
thetals=2* sum (theta ( : , k+1) . *sin(psi) ) /naz; 
end 



theta ( : , k+1 ) =thetao+thetalc . *cos (psi) +thetals . *sin (psi ) 
% *** calculation of new dthetadM *** 

theta= [theta theta (:, k+1) ] ; 

Mpsi=[Mpsi Mpsi ( : , k+1) ] ; 

theta ( : ,k+2)=theta( : , k) +0 . 25/57 . 3 ; 

Mpsi ( : , k+2 ) =zeros (size (Mpsi ( : , k+1) ) ) ; 

k=k+2; 

tmcalc 
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k=k-2; 



dthetadM= (theta ( : , k+2) -theta ( : , k) ) . / (Mpsi ( : , k+2) -Mpsi ( : , k) ) ; 
k=k+l; 

end 

set (H_STATUS, 'String' , 'ADJUSTING COLLECTIVE' ) 

set (H_STATUS1, 'String' ,[ 'RUN ELAPSED TIME IS ' num2str ( f ix ( toe) ) 
SECONDS ' ] ) 

set ( H_STATUS2 , ' String ' , ' ' ) 
pause (3 ) 



theta=theta { : , k) ; 
k=l; 

errorO= (T* . 01) +1; 



while abs(errorO) > T*.01 

Tpsi=zeros ( size (psi ) ) ; 

Npsi=zeros ( size (psi ) ) ; 
thrcalc 

errorO=T- (mean (Tpsi) *b) ; 
if errorO < -T*,01, 

thetao=thetao-0 . 25* thetao*abs ( 1 . 25*errorO/T) * ( 1-mu) ; 
elseif errorO > T*.01, 

thetao=thetao+0 . 25* thetao*abs ( 1 . 25*errorO/T) * (1-mu) ; 
end 

theta=thetao+thetalc . *cos (psi) +thetals . *sin (psi) ; 
if k > 1, 

if abs( errorO) > abs(errorl), 
clc 

t r im_wa r n i ng 

set (H_GO, ' Enable' , ' of f ' ) ; 
set(H_RES, 'Enable' , 'off' ) ; 
set (H_RUPT, 'Enable' , 'off ') ; 
set (H_BK, 'Enable' , 'on' ) ; 
error ( ' * * * END OF PROGRAM * * * ' ) 

end 

end 
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errorl=error 0 ; 



k=k+l; 



end 



% *** calculating drag moments *** 
set (H_STATUS2, 'String' , 'CALCULATING DRAG MOMENT' ) 
set (H_STATUS1, 'String' ,[ 'RUN ELAPSED TIME IS ' num2str ( f ix ( toe ) ) 
SECONDS ' ] ) 
pause (2 ) 

DMpsi=zeros (size (psi) ) ; 
dmcalc 

% *** calculating rotor H force *** 

set (H_STATUS2, 'String' , 'CALCULATING ROTOR DRAG') 

set (H_STATUS1, 'String' ,[ 'RUN ELAPSED TIME IS ' num2str ( f ix ( toc ) ) 
SECONDS ' ] ) 
pause (2) 

if Vinf < 16.9, 

Hrotor=0 ; 

dT=[dT ddT] ; 
dN=[dN ddN] ; 

dD=[dD ddD] ; 



else 

dT=[dT ddT] ; 
dN=[dN ddN] ; 
dD=[dD ddD] ; 

for i=l:length(r) +1, 

Hlc (i) =2*sum(dT( : , i) . *cos (psi) ) /naz; 

His (i) =2*sum(dD( : , i) . *sin(psi) ) /naz; 

end 

Hrotor= ( ( (b*cos (alphaT) / 2) * ( Siam (His) - 
sin(betao) *sum(Hlc) ) ) +Drotor) /2 ; 

end 



% *** calculating new rT *** 
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rT2= ( ( (mean(Mpsi( : , length (Mpsi (1, : ) ) -1) ) /mean(Tpsi) ) /R) +rTl) /2; 



% *** check rotor drag and rT, retrim rotor if required *** 



while abs (Drotor-Hrotor) > 0.2*Hrotor | abs(rTl-rT2) > 0.015*rTl 



if abs (Drotor-Hrotor) > 0.2*Hrotor, 

set (H_STATUS, 'String' , 'ADJUSTING ROTOR DRAG') 

set (H_STATUS1, 'String' ,[ 'RUN ELAPSED TIME IS ' num2str (f ix(toc) ) ' 

SECONDS ' 1 ) 

set (H_STATUS2 ,' String' ,[' CURRENT ROTOR DRAG = ' num2str (Drotor ) ' 

LB']) 

pause (3 ) 

end 

Drotor=Hrotor ; 

if abs{rTl-rT2) > 0.015*rTl, 

set (H_STATUS, 'String' , 'ADJUSTING MEAN THRUST LOCATION' ) 
set (H_STATUS1, 'String' ,[ 'RUN ELAPSED TIME IS ' n\im2str ( f ix ( toe) ) ' 

SECONDS ' ] ) 

set (H_STATUS2, 'String' , ['NEW MEAN THRUST LOCATION IS ' num2str(rT2) 
' r/R']) 

pause (2) 

end 

set (H_STATUS, ' String' , ' RETRIMMING ROTOR' ) 

set (H_STATUS1, 'String' ,[ 'RUN ELAPSED TIME IS ' num2str ( f ix ( toe ) ) ' 

SECONDS ' ] ) 
pause (3 ) 

set (H_STATUS2 , ' String' , ' ' ) 
dT=dT( : , 1 :nbe) ; 
dN=dN( : , l:nbe) ; 

dD=dD( : , Itnbe) ; 



% *** recalculating parameters *** 



if FIX_TPP_VAL==1 

alphaT=NEW_TPP; %set tip path angle 

else 

alphaT=atan2 ( (Df total+Drotor ) , (GW-Lf total) ) ; 
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end 



%alphaT80=0 ; 

%if S_USER_INPUT. Vinf<80 

% alphaT=atan2 ( (Df total+Drotor ) , (GW-Lftotal) ) ; 

%elseif S_USER_INPUT.Vinf==80 

% alphaT=atan2 { (Df total+Drotor ) , (GW-Lftotal) ) ; 

% alphaT80=alphaT; 

%elseif S_USER_INPUT.Vinf>=140 
% alphaT=0; 

%else 

% alphaT=(l- ( ( (Vinf-135 . 02479) /lOO) * .98747) ) *alphaT80; 
%end 

mu=Vinf *cos (alphaT) /Vtip; 

if Vinf >=16.9, % Wheatley Eqn for Fwd fit 

T= (GW-Lftotal) /cos (alphaT) ; 

CT=T/ (Adisk*rho*Vtip^2) ; 
lamdaT=0 ; 
lamda=l ; 

while abs (lamdaT-lamda) >le-4 
1 amda= 1 amdaT ; 

lamdaT=mu* sin (alphaT) +0 . 5*CT/sqrt (lamdaT''2+mu''2 ) 
1 amdaT_ t r im= 1 amdaT ; 



end 

vi=lamdaT*Vtip-Vinf *sin (alphaT) ; 
vi=vi*ones ( size (r ) ) ; 

end 



B=l- (sqrt (2*CT) /b) ; 
Reff=B*R; 

Rbar=Ref f-e; 



if RADSPC_VAL==1 

NEW_rl=[NEW_r, Reff/R]; 
n=length(NEW_rl) ; 
dr=dif f (NEW_rl) *R; 
r=(NEW_rl (l:n-l) *R) +dr/2; 
else 

dr= (Ref f-grip) /nbe; 
r=grip:dr :Reff-dr; ,r=r+dr/2; 

end 
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RbarT=r T2 * Rbar ; 

betao=asin ( (T/b*RbarT- { . 5* (R-e) +e) *wblade) / ( ( . 5* (R- 
e) +e) '^2*omega'^2*mblade) ) ; 



% *** trimming collective *** 



tO=clock; 

k=l; 

errorO= (T* . 02) +1; 



while abs(errorO) > T* . 02 

set (H_STATUS2, 'String' ,[ 'ROTOR TRIM ROUTINE IS ON ITERATION # 

' , num2str (k) ] ) 

set (H_STATUS1, 'String' , ['RUN ELAPSED TIME IS ' num2str ( f ix ( toe) ) ' 

SECONDS ' ] ) 

Tpsi=zeros (size (psi) ) ; 

Npsi=zeros (size (psi) ) ; 
thrcalc 

errorO=T- (mean(Tpsi) *b) ; 
if errorO < -T*.02, 

thetao=thetao-0 . 3 5* thetao*abs ( 1 . 5 *errorO/T) * (1-mu) ; 
elseif errorO > T*.02, 

thetao=thetao+0 . 35*thetao*abs (1 . 5*error0/T) * (1-mu) ; 
end 

theta=thetao+thetalc . *cos (psi) +thetals . *sin (psi) ; 
if k > 1, 

if abs (errorO) > abs(errorl), 
clc 

trim_warning 

set (H_GO, 'Enable' , 'off' ) ; 
set (H_RES, 'Enable' , 'off' ) ; 
set (H_RUPT, 'Enable' , 'off' ) ; 
set (H_BK, ' Enable ' , ' on' ) ; 
error('*** END OF PROGRAM ***') 
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end 



end 

errorl=errorO ; 
k=k+l; 

end 



% *** trimming cyclic *** 



k=l; 

errorO= ( ( (T/b) *rT2* (R-grip) ) * . 04) +1; 



while errorO > ( (T/b) *rT2* (R-grip) )*. 04 

set (H_STATUS2, ''String' ,[ 'CYCLIC TRIM ROUTINE IS ON ITERATION # 

' , num2str (k) ] ) 

set (H_STATUS1, 'String' ,[ 'RUN ELAPSED TIME IS ' num2str ( f ix ( toe) ) ' 

SECONDS ' ] ) 

time=etime (clock, tO) ; 

if time > 15, 

set (H_STATUS, ' String' , ' STILL TRIMMING . . . ' ) 

set (H_STATUS1, 'String' ,[ 'RUN ELAPSED TIME IS ' num2str ( f ix ( toe) ) 
' SECONDS ' ] ) 

set (H_STATUS2, 'String' , ['CYCLIC TRIM ROUTINE IS ON ITERATION # 

' , num2str (k) ] ) 

pause (3) 

t0=clock; 



end 



Mpsi ( : , k) =zeros (size (psi) ) ; 
tmcalc 

theta=[ theta theta (:, k) ] ; 

Mpsi= [Mpsi Mpsi ( : , k) ] ; 

% *** calculation of initial dthetadM *** 

if k < 2 , 
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theta ( : , k+1) =theta ( : , k) +0 . 25/57 . 3 ; 

Mpsi ( : , k+1) =zeros (size (psi) ) ; 

k=k+l; 

tmcalc 

k=k-l; 

dthetadM= (theta ( : , k+1) -theta ( : , k) ) . / (Mpsi ( : , k+1) -Mpsi ( : , k) ) 
end 



% *** calculation of M first harmonic parameters *** 



Mlc=2* Slim (Mpsi ( : , k) . *cos (psi) ) /naz ; 
Mls=2*s\im(Mpsi ( ; , k) . *sin (psi) ) /naz; 



% *** removal of first harmonic terms from Mpsi *** 



Mpsi ( : ,k+l) =Mpsi ( : ,k) -Mlc . *cos (psi) -Mis . *sin(psi) ; 
delM=Mpsi ( : , k+1) -Mpsi ( : , k) ; 
error0=max (delM) -min (delM) ; 



if k > 1, 

if errorO > errorl, 
clc 

trim_warning 

set (H_GO, ' Enable ' , ' of f ' ) ; 
set (H_RES, 'Enable' , 'off' ) ; 
set (H_RUPT, 'Enable' ,'off'); 
set (H_BK, 'Enable' , 'on' ) ; 
error ( ' * * * END OF PROGRAM * * * ' ) 

end 

end 



errorl=errorO ; 
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% 



calculation of new theta 



delM=0,5* (1-mu) *delM; 

theta ( ; , k+1) =theta ( : , k) + (dthetadM. *delM) ; 
if errorO <= ( (T/b) *rT2* (R-grip) ) * . 04 , 
thetalc=2* sum (theta ( : , k) . *cos (psi) ) /naz; 
thetals=2* sum (theta ( : , k) . *sin(psi) } /naz; 
else 

thetalc=2*sum( theta ( : , k+1) . *cos (psi) ) /naz; 
thetals=2*sum( theta ( : , k+1) . *sin (psi) ) /naz; 
end 

theta ( : , k+1) =thetao+thetalc . *cos (psi) +thetals . *sin (psi) ; 

% *** calculation of new dthetadM *** 

theta= [ theta theta ( : , k+1 ) ] ; 

Mpsi=[Mpsi Mpsi ( : , k+1) ] ; 

theta ( : , k+2 ) =theta ( : , k) +0 . 25/57 . 3 ; 

Mpsi ( : , k+2 ) =zeros (size (Mpsi ( ; , k+1) ) ) ; 

k=k+2 ; 

tmcalc 

k=k-2; 

dthetadM= (theta ( : , k+2 ) -theta ( : , k) ) . / (Mpsi ( : , k+2 ) -Mpsi ( : , k) ) 

k=k+l; 

end 

% *** retrimming collective *** 

theta= theta ( : , k) ; 
k=l; 



241 



errorO= (T* . 01) +1; 



while abs(errorO) > T*.01 

set (H_STATUS2, 'String' ,[ 'COLLECTIVE TRIM ROUTINE IS ON ITERATION # 
' , num2str (k) ] ) 

set {H_STATUS1, 'String' ,[ 'RUN ELAPSED TIME IS ' num2str { f ix { toe ) ) ' 

SECONDS ' ] ) 

Tpsi=zeros (size {psi) ) ; 

Npsi=zeros (size (psi) ) ; 
thrcalc 

errorO=T- (mean(Tpsi) *b) ; 
if errorO < -T*.01, 

thetao=thetao-0 . 25* thetao*abs { 1 . 25*errorO/T) * (1-mu) ; 
elseif errorO > T*.01, 

thetao=thetao+0 . 25* thetao*abs (1 . 25*errorO/T) * ( 1-mu) ; 
end 

theta=thetao+thetalc . *cos (psi ) +thetals . *sin (psi ) ; 
if k > 1, 

if abs (errorO) > abs(errorl), 
clc 

trim_warning 

set (H_GO, 'Enable' , 'of f ' ) ; 
set (H_RES, 'Enable' , 'off ' ) ; 
set (H_RUPT, ' Enable ' , ' of f ' ) ; 
set (H_BK, ' Enable ','on'); 
error ('*** END OF PROGRAM ***') 

end 

end 

errorl=errorO ; 
k=k+l; 
end 



% *** recalculating rotor H force *** 



if Vinf < 16.9, 
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Hrotor=0; 



dT=[dT ddT] ; 
dN=[dN ddN] ; 

dD= [dD ddD] ; 

else 

dT=[dT ddT] ; 
dN=[dN ddN] ; 

dD=[dD ddD] ; 

for i=l : length (r) +1 , 

Hlc (i) =2*s\un(dT( : , i) . *cos (psi) ) /naz; 

His (i) =2*siun(dD( : , i) . * sin (psi) ) /naz ; 

end 

Hrotor= ( ( (b*cos (alphaT) /2) * (sum (His) - 
sin (betao) * sum (Hlc) ) ) +Drotor) /2 ; 

end 



% *** recalculating rT *** 



rTl=rT2 ; 

rT2= ( ( (mean (Mpsi ( : , length (Mpsi (!,:))-!)) /mean (Tpsi) ) /R) +rTl) /2 



end 



% *** recalculating drag moments *** 



dT=dT ( : , 1 : nbe ) ; 
dN=dN( : ,l:nbe) ; 
dD=dD( : ,l:nbe) ; 

DMpsi= zeros (size (psi) ) ; 

dracalc 
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dT=[dT ddT] ; 
dN=[dN ddN] ; 



dD= [dD ddD] ; 

set (H_STATUS, 'String' , 'ROTOR TRIMMED' ) 

set (H_STATUS1, 'String' ,[ 'RUN ELAPSED TIME IS ' nuiti2str ( f ix ( toe ) ) 
SECONDS ' 1 ) 

set (H_STATUS2, 'String' , 'IS THIS BETTER THAN JANRAD 3 OR WHAT?') 
pause (3 ) 

set (H_STATUS2, 'String' , ' ' ) 

save perftemp mchord DMpsi % Eccles addition - perf.m was 

% not recognizing mchord and DMpsi. 
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39. unstructure_stab_input.m 

% Unstructure Consruction for JANRAD98 stability_control_input .m 

% Written for JANRAD version 6.0 by LT David A. Heathorn 

Ib=S_STAB_INPUT . Ib ; 
hmd=S_STAB_INPUT . hmd ; 
lmd=S_STAB_INPUT . Imd; 
ymd=S_STAB_INPUT . ymd ; 
im=S_STAB_INPUT . im; 
htd=S_STAB_INPUT . htd; 
ltd=S_STAB_INPUT . ltd; 
ytd=S_STAB_INPUT .ytd; 
bt=S_STAB_INPUT . bt ; 
ct=S_STAB_INPUT . ct ; 

Rt=S_STAB_INPUT . Rt ; 
at=S_STAB_INPUT . at ; 
ohmt=S_STAB_INPUT . ohmt ; 

Ibt=S_STAB_INPUT . Ibt ; 
delta3=S_STAB_INPUT.delta3; 
thetalt=S_STAB_INPUT. thetalt; 
hvd=S_STAB_INPUT . hvd; 
lvd=S_STAB_INPUT . Ivd; 
yvd=S_STAB_INPUT . yvd ; 
alplov=S_STAB_INPUT.alplov; 
clvertmax=S_STAB_INPUT . clvertmax; 
qvq=S_STAB_INPUT . qvq ; 
av=S_STAB_INPUT . av; 
hhd=S_STAB_INPUT . hhd; 
lhd=S_STAB_INPUT . Ihd; 
yhd=S_STAB_INPUT . yhd ; 
alploh=S_STAB_INPUT . alploh ; 
ih=S_STAB_INPUT . ih; 
ah= S_STAB_INPUT . ah ; 
qhq=S_STAB_INPUT . qhq ; 
vhvl=S_STAB_INPUT . vhvl ; 
detafdalpfh=S_STAB_INPUT.detafdalpfh; 
hwd=S_STAB_INPUT . hwd ; 
lwd=S_STAB_INPUT . Iwd; 
ywd=S_STAB_INPUT . ywd; 
alplow=S_STAB_INPUT . alplow; 
iw=S_STAB_INPUT . iw; 
aw=S_STAB_INPUT . aw; 
ctw=S_STAB_INPUT . ctw; 
crw=S_STAB_INPUT . crw; 
vwvl=S_STAB_INPUT . vwvl ; 
detaf dalpfw=S_STAB_INPUT . detaf dalpfw; 
zcg=S_STAB_INPUT. zcg; 
xcg=S_STAB_INPUT . xcg ; 
ycg=S_STAB_INPUT . ycg ; 

Ixx=S_STAB_INPUT . Ixx; 

Iyy=S_STAB_INPUT . lyy; 

Izz=S_STAB_INPUT . Izz ; 

Ixz=S_STAB_INPUT . Ixz ; 
vf vl=S_STAB_INPUT . vfvl ; 
htnd=S_STAB_INPUT . htnd; 
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ltnd=S_STAB_INPUT.ltnd; 
y tnd=S_STAB_INPUT . ytnd ; 
dian=S_STAB_INPUT . dian ; 
swirl=S_STAB_INPUT . swirl ; 
Ytmaxn=S_STAB_INPUT . Ytmaxn ; 
lttnd=S_STAB_INPUT . Ittnd; 
dblmddele=S_STAB_INPUT . dblmddele ; 
dalmddela=S_STAB_INPUT . dalmddela ; 
dthetomddelc=S_STAB_INPUT . dthetomddelc ; 
dthetotddelp=S_STAB_INPUT . dthetotddelp ; 
sidearm=S_STAB_INPUT . sidearm; 
maxr=S_STAB_INPUT . maxr ; 
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40. unstructure_stab_input_l.m 

% Unstructure Consruction for JANRAD98 stability_control_input_l .m 

% Written for JANRAD version 6.0 by LT David A. Heathorn 

Ib=S_STAB_INPUT_l . Ib; 
hmd=S_STAB_INPUT_l . hmd ; 
lmd=S_STAB_INPUT_l . Imd; 
ymd=S_STAB_INPUT_l . ymd ; 
im=S_STAB_INPUT_l . im; 
hvd=S_STAB_INPUT_l . hvd; 
lvd=S_STAB_INPUT_l . Ivd; 
yvd=S_STAB_INPUT_l.yvd; 
alplov=S_STAB_INPUT_l .alplov; 
elver tmax=S_STAB_INPUT_l . clvertmax; 
qvq=S_STAB_INPUT_l . qvq; 
av=S_STAB_INPUT_l . av; 
hhd=S_STAB_INPUT_l .hhd; 
lhd=S_STAB_INPUT_l . Ihd; 
yhd=S_STAB_INPUT_l . yhd ; 
alploh=S_STAB_INPUT_l .alploh; 
ih=S_STAB_INPUT_l . ih; 
ah=S_STAB_INPUT_l . ah; 
qhq=S_STAB_INPUT_l . qhq; 
vhvl=S_STAB_INPUT_l . vhvl ; 
detafdalpfh=S_STAB_INPUT_l . detafdalpfh; 
htd=S_STAB_INPUT_l . htd; 
ltd=S_STAB_INPUT_l . ltd; 
ytd=S_STAB_INPUT_l .ytd; 
bt=S__STAB_INPUT_l .bt ; 
ct=S_STAB_INPUT_l . ct ; 

Rt=S_STAB_INPUT_l . Rt ; 
at=S_STAB_INPUT_l . at ; 
ohint=S_STAB_INPUT_l . ohmt ; 

Ibt=S_STAB_INPUT_l . Ibt ; 
deltas =S_STAB_INPUT_1 . deltaS ; 
thetalt=S_STAB_INPUT_l . thetalt ; 
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41. uncstructure_stab_input_2.m 



% Unstructure Consruction for JANRAD98 stability_control_input_2 .m 

% Written for JANRAD version 6.0 by LT David A. Heathorn 

hwd=S_STA3_INPUT_2 . hwd; 
lwd=S_STAB_INPUT_2 . Iwd; 
ywd=S_STAB_INPUT_2 .ywd; 
alplow=S_STAB_INPUT_2 .alplow; 
iw=S_STAB_INPUT_2 . iw; 
aw=S_STAB_INPUT_2 . aw; 
ctw=S_STAB_INPUT_2 . ctw; 
crw=S_STAB_INPUT_2 . crw; 
vwvl=S_STAB_INPUT_2 . vwvl ; 
detaf dalpfw=S_STAB_INPUT_2 . detaf dalpfw; 
zcg=S_STAB_INPUT_2 . zcg; 
xcg=S_STAB_INPUT_2 .xcg; 
ycg=S_STAB_INPUT_2 . ycg ; 

Ixx=S_STAB_INPUT_2 . Ixx; 

Iyy=S_STAB_INPUT_2 . lyy ; 

I z z=S_STAB_INPUT_2 . 1 z z ; 

Ixz=S_STAB_INPUT_2 . Ixz ; 
vfvl=S_STAB_INPUT_2 . vfvl ; 
htnd=S_STAB_INPUT_2 .htnd; 
ltnd=S_STAB_INPUT_2 . Itnd; 
ytnd=S_STAB_INPUT_2 .ytnd; 
dian=S_STAB_INPUT_2 . dian; 
swirl=S_STAB_INPUT_2 . swirl ; 

Ytmaxn=S_STAB_INPUT_2 . Ytmaxn ; 
lttnd=S_STAB_INPUT_2 . Ittnd; 
dblmddele=S_STAB_INPUT_2 . dblmddele ; 
dalmddela=S_STAB_INPUT_2 . dalmddela ; 
dthetomddelc=S_STAB_INPUT_2 . dthetomddelc ; 
dthetotddelp=S_STAB_INPUT_2 . dthetotddelp ; 
sidearm=S_STAB_INPUT_2 . sidearm; 
maxr=S_STAB_INPUT_2 .maxr; 



248 



LIST OF REFERENCES 



1. Nicholson, R.K. Jr., Computer code for Interactive Rotorcraft Preliminary Design 
Using A Harmonic Balance Method for Rotor Trim, Naval Postgraduate School, thesis 
for MSAE Degree, Monterey, Ca, 1995. 

2. Gerstenberger, W. and Wood, E.R., Analysis of Helicopter Aeroelastic Characteristics 
in High-Speed Flight'', AIAA Journal, Volume No. 1, Number 10, Pages 2366-2381, 
October 1963. 

3. Wirth, W.M., Linear Modeling of Rotorcraft for Stability Analysis and Preliminary 
Design, Naval Postgraduate School, Thesis for MSAE Degree, Monterey, CA, 1993. 

4. Cuesta J. D., Modeling Helicopter Blade Dynamics using a Modified Myklestad Prohl 
Transfer Matrix Method, Naval Postgraduate School, thesis for MSAE Degree, Monterey, 
CA, 1994. 

5. Hiatt, D. S., A Study of Helicopter Rotor Dynamics and Modeling Methods, Naval 
Postgraduate School, thesis for MSAE Degree, Monterey, CA, 1995. 

6. Eccles, D M., A Validation of the Joint Army/Navy rotorcraft Analysis and Design 
Software by Comparison with H 34 and UUH 60A Flight Test, Naval Postgraduate 
School, thesis for MSAE Degree, Monterey, CA, 1995. 

7. Lapacik, C.F., Development of Graphical User Interface for Joint Army /Navy 
Rotorcraft Analysis and Design (JANRAD) Software, Naval Postgraduate School, Thesis 
for MSAE Degree, Monterey, CA, 1998. 

8. Hucke, W.L., Performance Enhancements to Joint Army /Navy Rotorcraft Analysis 
and Design (JANRAD) Software and Graphical User Interface (GUI), Naval 
Postgraduate School, Thesis for MSAE Degree, Monterey, CA, 1998. 

9. Prouty, Raymond W., Helicopter Performance Stability and Control, Krieger 
Publishing Company, Malabar Florida, 1995. 

10. Amer, Kenneth B. , Gustafson, F.B., “Charts for Estimation of Longitudinal Stability 
Derivatives for a Helicopter Rotor in Forward Flight”, NACA Technical Note 2309, 
November 25, 1950. 



249 




250 





INITIAL DISTRIBUTION LIST 



1. Defense Technical Information Center 2 

8725 John J. Kingman Rd., STE 0944 

Ft. Belvoir, Virginia 22060-6218 

2. Dudley Knox Library 2 

Naval Postgraduate School 

411 Dyer Rd. 

Monterey, California 93943-5 101 

3. Professor Gerald Lindsey, Code A A/Li 1 

Department of Aeronautics and Astronautics 

Naval Postgraduate School 
Monterey, California 93943-5000 

4. Professor E. Roberts Wood, Code AA/Wd 2 

Department of Aeronautics and Astronautics 

Naval Postgraduate School 
Monterey, California 93943-5000 

5. LCDR. Robert L. King, USN, Code AA/Ki 1 

Department of Aeronautics and Astronautics 

Naval Postgraduate School 
Monterey, California 93943-5000 

6. LT. David A. Heathom 2 

2416 Steamboat Springs Court 

Chula Vista, California 91955 

7. Mr. Raymond Prouty 1 

4224 Deerpark Court 

Westlake Village, California 91361 

8. Dr. Michael P. Scully 1 

P.O. Box 1120 

Mountain View, California 94042 



251 




m 



15 34351 

10/99 22527-2 ODn. an | 





. ■ 



TGRADU 



• ol 



